Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/03/2006, 20:16
Avatar de jc_moty
jc_moty
 
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