Con esta función nos podemos conectar a una base de datos en SQL Server .

Private Sub conexion()
'------------------------------------------------------------------------------
' Conectar a una base de datos de SQL Server                       
' y mostrar los campos de la tabla
'
' Para que este ejemplo funcione, necesitamos una referencia a:
' Microsoft ActiveX Data Objects 2.0 Library

    Dim tField As ADODB.Field
    '
    ' Si estaba abierta la conexión, la cerramos
    Set conexion = Nothing
    Set nombre_recorsedset = Nothing
    '
    ' Creamos los objetos
    Set conexion = New ADODB.Connection
    Set nombre_recorsdset = New ADODB.Recordset
    '
    ' abrir la base usando las credenciales de Windows
   ' Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial    Catalog=nombre_bd;Data Source=SERVER\nombre_instancia_sql_server

   
    conexión.Open "Provider=SQLOLEDB.1;Initial nombre_bd;Data Source=SERVER\nombre_instancia_sql_server & _integrated security=SSPI; persist security info=False;"
    '
    ' abrir el recordset indicando la tabla a la que queremos acceder
    nombre_recordset.Open "SELECT * FROM ITEMS", cnn, adOpenDynamic, adLockOptimistic
    '
    ' Asignar los nombres de los campos al combo
    With cboCampos
        .Clear
        For Each tField In nombre_recordset.Fields
            .AddItem tField.Name
        Next
        .ListIndex = 0
    End With
    '
    ' Cerrar el recordset y la conexión
    nombre_recordset.Close
    conexion.Close
    '
End Sub