Dim objconnect As Connection
Set objconnect = New Connection
objconnect.ConnectionString = "FILE NAME=" & App.Path & "\client.DSN"
objconnect.Mode = adModeReadWrite
objconnect.Open
Set rs(1) = New Recordset
rs(1).Open "Table1", objconnect, adOpenDynamic, adLockOptimistic
Set rs(2) = New Recordset
rs(2).Open "Table2", objconnect, adOpenDynamic, adLockOptimistic
Form1.Show |