Hola Ogramar!!
Pues fue un despiste muy tonto jeje, faltaban aqui en la consulta:
Dim Consulta As New OleDb.OleDbDataAdapter("Select * from Administrador WHERE IdAdmin ='" + usuario + "'", conexion)
Oye por cierto, aprovechando que has contestado esta entrada, tengo una consulta:
Dicen que usar muchas variables publicas es una mala practica de programacion. La verdad que las he utilizado bastante en este programa, y quisiera saber como podria yo reducirlas. Tengo un modulo creado... ahi tengo la conexion, los metodos de insertar, recuperar, eliminar... etc. Y tengo 3 forms diferentes que utilizan ese modulo.. y para poder utilizar esos metodos, pues necesito crear variables publicas para que en el modulo pueda acceder a ellas
Por ejemplo, esta es una consulta que se encuentra en el modulo, el insert de una de las ventanas:
Dim Consulta As New OleDb.OleDbDataAdapter("insert into Pacientes(Nombre,Apellido,Cedula,Fecha_Nacimiento, Sexo, Tipo_Sangre, Direccion, Telefono) values ('" + InsertarPac.Nombre + "','" + InsertarPac.Apellido + "','" + InsertarPac.Cedula + "','" + InsertarPac.Nacimiento + "','" + InsertarPac.Sex + "','" + InsertarPac.Blood + "','" + InsertarPac.Direccion + "','" + InsertarPac.Telefono + "')", conexion)
Ahi se puede ver claramente a lo que me refiero.. ¿Como podria reducirlas? :s