Dim dbContrato As Database
Dim recContrato As Recordset
Set dbContrato = DBEngine.OpenDatabase(PathDeBase, False, False, ";Pwd=MiContraseña")
strSQL = "SELECT * FROM Clientes ORDER BY IdCliente"
Set recContrato = dbContrato.OpenRecordset(strSQL, dbOpenDynaset)
Set Data1.Recordset = recContrato