Programa de cálculo en lenguaje ensamblador

dbName = "D:\Fam_Money_Manger_System1\Database\" amp; "Money_Manage.accdb" 'Regresar a la ruta del programa

' Acceder a la cadena de conexión

conStr = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" amp dbName amp "Jet OLEDB: Contraseña de la base de datos =;"

dbConn = New ADODB.Connection 'Definir una conexión ADODB; object

Si dbConn.State lt;gt; ADODB.ObjectStateEnum.adStateOpen Then 'Determinar si la conexión ADODB está abierta

dbConn.Open(conStr) 'Si no está abierta, abre la conexión

Finalizar si

Conn2DB = True

Finalizar función