Public SqlConnectString As String 'Строка подключения к SQL серверу
Public cn As New ADODB.Connection 'ADO соединение
Public rs As New ADODB.Recordset 'Базовый Рекордсет

SqlConnectString ="Driver={SQL Server};Server=SERVERNAME;Database=DBNAME;Trusted_Connection=Yes;" 

cn.Open SqlConnectString
sqlstr = "SELECT FIELDNAME FROM dbo.TABLENAME"
rs.CursorLocation = adUseClient
rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic
... Работа с рекордсетом
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing