Public BBDD As Connection
' Apertura de la base de datos.
With BBDD
.Provider = "SQLOLEDB"
.ConnectionString = "SERVER=" + Server + ";DATABASE=" + Database + ";uid=" + User + ";pwd=" + Pass
.Open
End With
' Apertura de un recordset
With rsEmpresas
.ActiveConnection = BBDD
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.MaxRecords = 1000
.Source = "SELECT * FROM T_CLIENTES_EMPRESAS"
End With