Итак, соединение мы устанавливать научились. Теперь мы с Вами попробуем получить запись из таблицы в SQL Server. Для этого нам нужна переменная типа Recordset.

Dim record As Recordset
Set record = New Recordset

Вот так ее можно создать. Но объект Recordset нужно связать с активным соединением. Для этого кстати и соединение нужно создать.

Set adoConnect = New ADODB.Connection
Dim strConnect As String
strConnect = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Servers"
adoConnect.Open strConnect, "sa", "123"
Dim record As Recordset
Set record = New Recordset
record.ActiveConnection = adoConnect

Вот теперь можно обращаться с SQL оператором к базе данных, чтобы получить записи.

record.Open "select * from piple"
MsgBox record.Fields(1)

Методов получения результата много. Я, например, использовал Fields, который по номеру позволяет вернуть содержимое записи. Если знать имя поля, то можно получить содержимое используя имя поля. Вот так.

MsgBox record!Name

Естественно по набору записей можно двигаться. Есть методы всякие типа MoveNext и MovePrevious, есть и способ определения начала и конца записей. Вот так, например, можно пройти по всем полученным записям.

While record.EOF <> True
MsgBox record!Name
record.MoveNext
Wend