Unanswered: Linking Back End to Front End using ADOX
I am in the process of converting DAO code to ADO. I have written the procedure listed below which doesn't work. It links the 1st table of the Back End database and fails when linking the 2nd table in the list.
I would greatly appreciate if anyone with knowledge of ADOX could help me and show where I went astray.
Many thanks in advance. . . .
and here is the procedure!
Private Function fnCreateNewLinks(ByVal strLBackEndDB As String)
On Error GoTo ErrorHandler
bytCancel = 0
Dim adoBackEndConn As New ADODB.Connection
Dim adoBackEndCat As New ADOX.Catalog
Dim adoBackEndTable As New ADOX.Table
Dim adoFrontEndConn As New ADODB.Connection
Dim adoFrontEndCat As New ADOX.Catalog
Dim adoFrontEndTable As New ADOX.Table
adoBackEndConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data BackEnd=" & strLBackEndDB & ";"
adoFrontEndConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data BackEnd=" & Application.CurrentDb.Name & ";"