Public con As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command
Public Parm As New ADODB.Parameter

Sub conexion()
  '  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
  End Sub

frmacceso.Show 1