Validar usuario

[Xphoenix]

Es una base de datos Access, hice la conexión a la DB por codigo y para la comparacion del user y el pass hice lo siguiente espero que le sirva a alguien o que me den sugerencia para mejorarlo:

Private Sub cmdAceptar_Click()
Set Rcs = New ADODB.Recordset
intSQL = ("SELECT IDUSER FROM Usuarios WHERE USUARIO=" & StrCom(cboUsuario.Text))
Rcs.Open intSQL, mBase, adOpenDynamic, adLockOptimistic

If txtClave.Text = Rcs!IDUSER Then
MsgBox "Correcto"
Else
MsgBox "No correcto"
End If

Rcs.Close

End Sub

Nota: StrCom es una funcion para encerrar una cadena entre comillas

Function StrCom(SCadena) As String
StrCom = Chr(39) & SCadena & Chr(39)
End Function