MS Access ADODB method 18 January 2019 Dave-Stuart MS Access Dim cn As New ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String strSQL = "Select * from Employees ORDER BY [LastName],[FirstName];" Set rs = New ADODB.Recordset With rs .Source = strSQL .ActiveConnection = CurrentProject.Connection .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open Do While Not .EOF Debug.Print UCase$(![LastName]) & ", " & ![FirstName] .MoveNext Loop End With rs.Close Set rs = Nothing