
27/03/2006, 20:16
|
 | | | Fecha de Ingreso: septiembre-2005 Ubicación: Usulután, El Salvador
Mensajes: 477
Antigüedad: 19 años, 6 meses Puntos: 1 | |
Proba asi:
Código:
Adodc1.RecordSource= "SELECT * FROM Tabla WHERE Nombre_usuario LIKE '" & Text1.Text & "' AND Contraseña LIKE '" & Text2.Text & "'"
Select Case Adodc1.Recordset.Fields("Tipo")
Case 1
' aqui debe mostrar menu1
Case 2
' aqui debe mostrar menu 2
End Select
Espero te sirva 
Saludos |