tienes razón, pero..... yo me contre con una que era alergica a ello y al jugo de naranja y cuando eso de me olvidaba 

prueba así

Option Explicit
 
Public rst    As ADODB.Recordset
Public sSQL   As String
Public sConex As String
 
Private Sub Command1_Click()
    sSQL = "SELECT * FROM Users WHERE " & _
        "UserName='" & Replace(txtUserName.Text, "'", "''") & "' AND " & _
        "Password='" & Replace(txtPassword.Text, "'", "''") & "'"
 
    rst.Open sSQL, sConex, adOpenDynamic, adLockOptimistic
        If rst.EOF And rst.BOF Then
            MsgBox "Invalid user name/password."
        Else
            Select Case (rst!Nivel)
                Case 1:
                    Form1.Show
                Case 2:
                    Form2.Show
            End Select
        End If
    rst.Close
End Sub
 
Private Sub Form_Load()
    Set rst = New ADODB.Recordset
    sConex = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Replace(App.Path & "\db.mdb", "\\", "\")
End Sub

obviamente hay mejores formas de trabajar

ok, hay varias formas, puedes por ejemplo usar este mismo bloque

y donde te señale, haces una nueva consulta a la base de datos y extraes el valor del campo, luego comparas y das el acceso dependiendo del caso, o puedes obtener el valor antes, en el query inicial y luego haces la comparación donde te especifique anteriormente.

saludos

o.O empieza a meterte en su cuarto, es decir, regalale cosas que le duren y le hagan recordarte en la noche cuando este ahi sola, un peluche de su animal preferido, una caja de musica, etc. conocela mas y saca sus gustos, no vaya a ser que te lanze el peluchin por la cara porque simplemente no le gustan y no fuiste capaz de confirmarlo xDDD

un arreglo de flores son buenos puntos para ti capaz y no le gustan tampoco jajaja

saludos!!

jajaja y que? cada uno le da la idea siguiente y el del final le da el code? xDD

hola, investiga sobre la función split

Seguro te gusta alguno  

o.O si no hay code, no va acá ..

Hasta que te animaste 

eso no lo entendi..