Form 8 code
Option Explicit
Private Sub Command1_Click()
Module1.retdata ("select upass from Admin where uname='" & txtuname.Text & "' and sans='" & Text1.Text & "'")
If rs.RecordCount > 0 Then
MsgBox ("Your Password Is" & rs.Fields(0).Value)
Else
MsgBox ("Wrong Answer")
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub txtuname_LostFocus()
Module1.retdata ("select sques from Admin where uname='" & txtuname.Text & "'")
If Not rs.EOF Then
lblq.Caption = rs.Fields(0).Value
Else
MsgBox ("No Such User")
End If
End Sub
