Poner password a progama

[vicentecamesella]

Amigo te coloco un ejemplo de una aplicacion que estoy desarrollando pero va mas alla de lo que pides es el acceso lo unico que te coloco este es uno de los codigos mas basicos que poseo para este tema espero te sirva ah uso base de datos MySql pero funciona con cualquiera
Private Sub Aceptar_click ()

Dim fecha As Date
fecha = Date

If Me.CSTXUSUARIO.Text = "" And Me.CSTXPASSWORD.Text = "" Then 'if1
CSTimer2.Interval = 20
DES
CSLBLERROR.Visible = True

Else

comprobar_rs
rs.Open "SELECT * FROM mpusuario where usu_nombre='" & Me.CSTXUSUARIO.Text & "' and usu_clave = '" & Me.CSTXPASSWORD.Text & "'", cncon, adOpenStatic, adLockBatchOptimistic, adCmdText
'CREO EL RECORDSET
Set RE = New ADODB.Recordset

'ESTABLESCO EL RECORDSET
strsql = " Select * From MPEMPRESA where EMP_CLAVE like '" & "modelpro" & "'"
RE.Open strsql, cncon, adOpenDynamic, adLockOptimistic

If rs.EOF = True Then
CSTimer2.Interval = 20
DES
CSLBLERROR.Visible = True
limpiar_campos

Else
If Val(StrComp(Me.CSTXPASSWORD.Text, rs("usu_clave"), vbBinaryCompare)) <> 0 Then
CSTimer2.Interval = 20
DES
CSLBLERROR.Visible = True
limpiar_campos
Else
Load FRMCARGANDO
FRMCARGANDO.Show
MDIBIENVENIDA.CSLBL = CSTXUSUARIO.Text
MDIBIENVENIDA.NomEmp = RE!emp_nombre
MDIBIENVENIDA.codemp = RE!emp_CLAVE
codemp = RE!emp_CLAVE
End If
End If
End If

End Sub