Спасибо, уже разобрался. Может кому то понадобится кусочек кода, который вычитывает из базы "Proba" сервера (local) пользователь и пароль "radan" таблицы "autor" все значения.
Dim strTemp(10)
Dim i As Integer
Dim connect, db, query, wert
Set connect = CreateObject("ADODB.Connection")
connect.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=radan;Password=radan;Initial Catalog=Proba;Data Source=(local)"
Set db = CreateObject("ADODB.Recordset")
query = "SELECT * FROM autor"
db.Open query, connect
Do While Not db.EOF
i = i + 1
strTemp(i) = db.Fields(1).value
db.MoveNext
Loop
MsgBox strTemp(0) & vbCrLf & _
strTemp(1) & vbCrLf & _
strTemp(2) & vbCrLf & _
strTemp(3) & vbCrLf & _
strTemp(4) & vbCrLf & _
strTemp(5) & vbCrLf & _
strTemp(6) & vbCrLf & _
strTemp(7) & vbCrLf & _
strTemp(8) & vbCrLf & _
strTemp(9) & vbCrLf & _
strTemp(10) & vbCrLf
connect.Close