Private Sub CreateTable()
        Dim odb As String = "G:\DBs\vdt.MDB"
        Dim ndb As String = "H:\DBs\ndata.mdb"
 
        ' Delete old DB and create anew
        If File.Exists(ndb) Then
            File.Delete(ndb)
        End If
 
        Dim ndbString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & ndb
        Dim ndbc As New OleDbConnection(ndbString)
        Dim res As Integer
 
        Dim cat As New ADOX.Catalog
        cat.Create(ndbString)
        cat = Nothing
 
        Dim cmd As New OleDbCommand("Create Table StatusByPerson (Name Char," & _
          "Status Char)", ndbc)
 
        Try
            ndbc.Open()
            res = cmd.ExecuteNonQuery()
        Catch ex As Exception
            Debug.WriteLine(ex.ToString())
        Finally
            ndbc.Close()
        End Try
 
        ' Read in data from old DB tables
        Dim odbString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & odb
        Dim odbc As New OleDbConnection(odbString)
        Dim selSQL As String = "Select Contacts.LastName+'," & _
          "'+Contacts.FirstName As Name, CValues.value As Status" + _
        " From Contracts, Contacts, CValues Where" & _
        "Contracts.ContactID=Contacts.ContactID And CValues.id =" & _
        "Contracts.ContractStatus"
        Dim oda As New OleDbDataAdapter(selSQL, odbc)
        oda.AcceptChangesDuringFill = False
        Dim ds As New DataSet
        Try
            oda.Fill(ds, "Data")
        Catch ex As Exception
            Debug.WriteLine(ex.ToString())
            Return
        End Try
 
        ' Add data to new DB table
        Dim nda As New OleDbDataAdapter("Select * From StatusByPerson", ndbc)
        Dim cb As New OleDbCommandBuilder(nda)
        nda.Update(ds, "Data")
 
        ' Display the new data
        ds.Clear()
        nda.Fill(ds, "Data")
        Dim bs As New BindingSource(ds, "Data")
        CValuesDataGridView.AutoGenerateColumns = True
        CValuesDataGridView.DataSource = bs
 
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov