ADODB.Recordset чтение строк - VB

Формулировка задачи:

Приветствую есть код правда в VBS но все же:

                    Листинг программы
                
 
                        
                          
                    
Set ors2 = CreateObject("ADODB.Recordset") 
con2 = "путь" 
ors2.ActiveConnection = con2
tabl2 = "запрос'"
ors2.Source = tabl2
ors2.Open
    e=ors2.Fields(0).Value
    ors2.MoveNext
ors2.Close
Set ors2 = Nothing

теперь как мне считывать все строки которые удовлетворяют моему запросу в SQL?

Решение задачи: «ADODB.Recordset чтение строк»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Set cn2 = CreateObject("ADODB.Connection")
Set ors2 = CreateObject("ADODB.Recordset")
cn2.CursorLocation = 3 'adUseClient
cn2.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & "путь"
tabl2 = "запрос"
Set ors2 = cn2.Execute(tabl2)
I = 0: ors2.MoveFirst
Do While Not ors2.EOF
    Debug.Print I, ors2.Fields(0).Value
    ors2.MoveNext
    I = I + 1
Loop
cn2.Close
Set ors2 = Nothing