Steps to do:
1) create and open connection
2) create and open Recordset object
3) while recordset not EOF, read values
Dim oConn As ADODB.Connection
Dim sConn As String
Dim oRst As ADODB.Recordset
Dim sSQL As String
sConn = "Your connection"
Set oConn = New ADODB.Connection
oConn.Open sConn
Set oRst = New ADODB.Recordset
sSQL = "your query"
rstEmployees.Open sSQL, oConn, adOpenStatic, adLockOptimistic, adCmdTable
Do While Not oRst.EOF
MsgBox oRst.Fields(0).Value
.MoveNext
Loop
See more:
Open Method (ADO recordset)[
^]
Open and Close Methods Example (VB)[
^]
MoveFirst, MoveLast, MoveNext, and MovePrevious Methods Example (VB)[
^]