Sub nnn()
Set objRecordset = CreateObject("ADODB.Recordset")

ConnectString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\liter.mdb"
        
objRecordset.ActiveConnection = ConnectString
objRecordset.Source = "SELECT name FROM Mytable WHERE Id<7"
objRecordset.Open
While Not objRecordset.EOF
    strRes = vbNullString
    For i =  0  To objRecordset.Fields.Count -  1 
        strRes = strRes & CStr(objRecordset.Fields(i).Value) & vbNewLine
    Next

     Selection.TypeText strRes 

     objRecordset.MoveNext
Wend
objRecordset.Close
Set objRecordset = Nothing

End Sub