Option Explicit
Private con As New ADODB.Connection
Private rs As New ADODB.Recordset
Private cmd As New ADODB.Command
Private Parm As New ADODB.Parameter
  '  Set con = Nothing
  '  Set rs = Nothing
  ' Crear los objetos
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    ' abrir la base usando las credenciales de Windows
    con.Open "Provider=SQLOLEDB; " & _
             "Initial Catalog=BDequipo; " & _
             "Data Source=(LOCAL); " & _
             "integrated security=SSPI; persist security info=True;"
    '
    ' abrir el recordset indicando la tabla a la que queremos acceder
    '
    cmd.ActiveConnection = con