Article ID: 177594
Article Last Modified on 2/12/2007
Microsoft Data Access Object 2.x (VB4 16-bit) Microsoft Data Access Object 3.x (VB4 32-bit; VB5)
Sub Command1_Click()
Dim db1 As Database
Dim db2 As Database
Dim rs As Recordset
Dim strConnect As String
'*** You have to modify the path to where db1.mdb is located
Set db1 = OpenDatabase("C:\MyTest\db1.mdb")
strConnect = UCase(db1.TableDefs("dbo_authors").Connect) & _
";Username=<username>;PWD=<strong password>"
Set db2 = OpenDatabase("", False, False, strConnect)
db2.Close
Set db2 = Nothing
Set rs = db1.OpenRecordset("dbo_authors")
Debug.Print rs(0)
Debug.Print "Recordset Opened Successfully"
rs.Close
db1.Close
Set rs = Nothing
Set db1 = Nothing
End Sub
Keywords: kbhowto KB177594