vb conectarse a la base de datos mysql
Carga ODBC.
Agregar control Adodc en vb.
Función pública conn() como cadena
conn = "Provider=SQLOLEDB.1;Contraseña=Contraseña de administrador de base de datos;Persistir información de seguridad=Verdadero;ID de usuario=Cuenta de administrador de base de datos.Inicial Catálogo=Nombre de la base de datos; Fuente de datos=Nombre del equipo"
Función final
Atenuar rs como nuevo ADODB.Recordset
Atenuar como nuevo ADODB.
con.Open conn
sql = "seleccione * del administrador donde nombre de usuario='" & nombre de usuario.Texto & "' y contraseña='" & contraseña.Texto & "'"
rs.Abrir sql, con, 1, 1