Visual Basic - AYUDA URGENTE:INICIAR SESION CON PASSWORD

HOLA A TODOS LOS FANÁTICOS DE VISUAL BASIC, TENGO UN PROBLEMO QUE NECESITO CORREGIR URGENTEMENTE. TENGO UNA BASE DE DATOS EN ACCESS, LA CUAL LA UTILIZO EN VISUAL BASIC 6.0, Y PARA TENER ACCESO A ELLA NO TENGO NI UN PROBLEMA,. MI SISTEMA CONTIENE UN INICIO DE SESIÓN QUE PIDE NOMBRE DE USUARIO Y SU CORRESPONDIENTE PASSWORD, DICHOS DATOS SE ENCUENTRAN EN LA TABLA "EMPLEADO" COMO "NomEmp" Y "CveEmp", DONDE NomEmp ES EL NOMBRE DEL USUARIO Y CveEmp ES EL PASSWORD. EL CÓDIGO QUE UTILIZO ES EL SIGUIENTE: AL PRESIONAR EL BOTON "BtnAcp"

Private Sub BtnAcp_Click()
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MiBase.mdb"
Set DBID = New Recordset
DBID.Open "SELECT * FROM Empleado where NomEmp ='" & TxtEmp.Text & "'", DB, adOpenStatic, adLockOptimistic
If DBID.EOF Then
MsgBox "No hay usuarios con ese nombre"
TxtEmp.SetFocus
Else
If DBID(0) = UCase(Password.Text) Then
MsgBox "Usuario Identificado", vbInformation, "Contraseña"
Else
MsgBox "Contraseña incorrecta", vbCritical, "Contraseña"
Password.SetFocus
End If
End If
DBID.Close
Set DBID = Nothing
End Sub

EL PROBLEMA CONSISTE EN QUE AL INTRODUCIR EL NOMBRE DE USUARIO SÍ LO IDENTIFICA, PERO SIEMPRE LA CONTRASEÑA ES INCORRECTA SIENDO LA MISMA QUE SE ENCUENTRA EN LA BASE DE DATOS. ES MUY EXTRAÑO PORQUE EL MISMO CÓDIGO LO HE UTILIZADO EN OTROS SISTEMAS, CON ACCESS Y SQL SERVER, Y NO ME HA DADO PROBLEMAS......

ALGUIEN PUEDE AYUDARME?PLEASE
ESTOY DESESPERADO, NO SÉ QUÉ PASA
NECESITO AYUDA ¡¡¡¡¡¡URGENTEMENTE!!!!!!!
.....GRACIAS

lo unico q se me ocurre es q dbid(0) no es el campo de la clave.... verificaste eso? mejor usa dbid("CveEmp")
otra cosa no se me ocurre...
suerte.....

prueba esto

Private Sub BtnAcp_Click()
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\MiBase.mdb"
Set DBID = New Recordset
DBID.Open "SELECT NomEmp ,CveEmp FROM Empleado where NomEmp ='" & TxtEmp.Text & "'", DB, adOpenStatic, adLockOptimistic
If DBID.EOF Then
MsgBox "No hay usuarios con ese nombre"
TxtEmp.SetFocus
Else
do while .not. dbid.eof
If DBID(1) = UCase(Password.Text) Then
MsgBox "Usuario Identificado", vbInformation, "Contraseña"
bandera=true
exit
else
bandera=false
End If
loop
if bandera=false then
MsgBox "Contraseña incorrecta", vbCritical, "Contraseña"
Password.SetFocus
end if
End If
DBID.Close
Set DBID = Nothing
End Sub

si hay algun error de codigo corrigelo, pero creo que debes listar los campos que vas desplegar y saber en orden en el cual se van a desplegar.