Option Explicit
Global oDb As ADODB.Connection      'Para SQL Server
Global oRs As ADODB.Recordset

Set oDb = New ADODB.Connection
 
    With oDb
       .Provider = Proveedor$
       .Properties("User ID").Value = ' Aca el nombre de usuario que te da acceso en SQL SERVER

       .Properties("Password").Value = ' Aca el Password que tiene ese usuario

       .Properties("Initial Catalog").Value = ' Aca el nombre de tu base de datos

       .Properties("Data Source").Value = 'aca el nombre del servidor de base de datos.
   End With
   'Verifico la conexion, por si las dudas
 If oDb.State <> adStateOpen Then
       'Reabro la conexión
       oDb.Open
    End If

Para leer datos de una tabla, podrias usar algo asi

Public Function FncLeerTabla(Sql As String) As Boolean
 On Error GoTo error
   FncLeerTabla = True
   Set oRs = Nothing
   Set oRs = New ADODB.Recordset
   oRs.CursorLocation = adUseClient
   With oRs
       .ActiveConnection = oDb
       .LockType = adLockOptimistic
       .CursorType = adOpenDynamic
       .Source = Sql
       .Open
   End With
     If oRs.RecordCount = 0 Then
       FncLeerTabla = False
   End If
Exit Function
error:
  ' BarraDeEstado ("Existe un Error de Datos, Contacte al Administrador del Sistema")
   Debug.Print Err.Description & Err.Number
   Err.Clear
   FncLeerTabla = False
   End Function