Private Sub CreateTable1()
        Dim odb As String = "G:\DBs\vdt.MDB"
        Dim ndb As String = "H:\DBs\ndata.mdb"
        Dim res As Integer
 
        ' 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 cat As New ADOX.Catalog
        cat.Create(ndbString)
        cat = Nothing
 
        ' Import data
        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" + _
        " Into StatusByPerson In '" & ndb & "' From Contracts, Contacts," & _
        "CValues Where Contracts.ContactID=Contacts.ContactID And CValues.id =" & _
        "Contracts.ContractStatus"
 
        Dim cmd As New OleDbCommand(selSQL, odbc)
        Try
            odbc.Open()
            res = cmd.ExecuteNonQuery()
        Catch ex As Exception
            Debug.WriteLine(ex.ToString())
            Return
        Finally
            odbc.Close()
        End Try
 
    End Sub

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