Programación de base de datos Vba

096 Dim base de datos como objeto

097 Private subform_Load()

098 Establecer base de datos = nueva conexión adodb

099 Llamada. base de datos open(" proveedor = Microsoft . jet . oledb . 4.0; fuente de datos = Data.mdb") 'Conéctese a la base de datos

100 Si ((database. state) = (adstatepen )) Entonces<. /p>

101 MsgBox("¡Conexión exitosa!")

102 Otros

103 MsgBox("¡Conexión fallida!")

104 Finalizar si

105 Conector final

106 Subformulario privado_Descarga (cancelación de entero)

107 Base de datos. Cerrar Cierra la base de datos.

108 Establecer base de datos = ninguna' variable de base de datos clara

109 Conector final