|
Sub field()
Dim dbNorthwind As DAO.Database
Dim dbPath As String
DbPath = CurrentProject.Path & "\mydb.mdb"
Set dbNorthwind = OpenDatabase(dbPath)
Dim rsEmployees As DAO.Recordset
Dim rsCustomers As DAO.Recordset
Set rsEmployees = dbNorthwind.OpenRecordset("Employees", dbOpenTable)
Set rsCustomers = dbNorthwind.OpenRecordset("Customers", dbOpenTable)
I = 2
With rsEmployees
If Not .BOF Then .MoveFirst
Do While Not .EOF
Cells(I, 1).Value = .Fields(2) 'First name in third column
Cells(I, 2).Value = .Fields(1) 'Last name in second column
.MoveNext
I = I + 1
Loop
End With
End Sub
|