Hola mi duda es la siguiente un profe nos mando un código y la seguridad esta cifrada pero no tengo idea que tipo de seguridad es y el nos dijo ke no nos prestaría ayuda que nosotros averiguáramos aki dejo una parte cualkier cosa pongo mas parte ok :D
On Error GoTo Err_B2_Click
Dim dbs As New ADODB.connection, rst As New ADODB.Recordset, rst2 As New ADODB.Recordset
Set dbs = CurrentProject.connection
rst.Open "Control", dbs, adOpenStatic, adLockReadOnly
If rst!Autorizado Then
If rst!ClaveDist = "s‚„€z‡oU‚}Uuƒ‰ƒ€~Žoyu" Then <------aki esta la contraseña
rst2.Open "SELECT Count(productos.IDproducto) AS CS FROM PRODUCTOS WHERE (((Productos.Gasto)=False) AND ((Productos.Producto)=True));", dbs, adOpenForwardOnly, adLockReadOnly
If rst2!cs = 0 Then
AbrirForm ("GastoC")
Else
MsgBox "SISTEMA AUTORIZADO PARA 1 PRODUCTO", vbCritical
End If
rst2.Close
Else
AbrirForm ("GastoC")
End If
Else
MsgBox "SISTEMA NO AUTORIZADO", vbCritical
End If