Declaraciones para conectar la base de datos ACESS en la programación de bases de datos VB

ID de usuario público como cadena

Usuario público como cadena

Administrador público como booleano

Recuento de contraseñas públicas como entero

Conexiones públicastr

Aplicación pública

Subprincipal pública()

*****connectionstr = "Provider=Microsoft.Jet.OLEDB.4.0; Datos Fuente=" amp; App.path amp; ".\ddd.mdb; Información de seguridad persistente=False Jet OLEDB: Contraseña de la base de datos=123456789"************

appph = App.path

userlogin.Show (1)

Si userlogin.login Entonces

flash.Show (1)

MDImain.Show

End If

End Sub

El código que realmente utilicé está pegado para usted *** la parte adjunta es