Private Sub Form_Load()
Dim str As String
Me.Caption = ""
Set adoconn = Nothing
adoconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=person.mdb;Persist Security Info=False"
str = "select * from pers"
rs.Open str, adoconn, adOpenDynamic, adLockPessimistic
rs.MoveFirst
txtNo.Text = rs(0)
txtName.Text = rs(1)
txtDistrict.Text = rs(2)
txtDob.Text = rs(4)
txtPhone.Text = rs(3)
txtID.Text = rs(5)
 
  End Sub
 
Private Sub cmdSave_Click()
 
rs(0) = txtNo.Text
rs(1) = txtName.Text
rs(2) = txtDistrict.Text
rs(4) = txtDob.Text
rs(3) = txtPhone.Text
rs(5) = txtID.Text
rs.Update
MsgBox "The record has been saved successfully.", , "ADD"
cmdFirst.Enabled = True
cmdLast.Enabled = True
cmdNext.Enabled = True
cmdPrevious.Enabled = True
cmdDelete.Enabled = True
cmdSearch.Enabled = True
cmdUpdate.Enabled = True
cmdSave.Visible = False
cmdAdd.Visible = True
End Sub
 
Private Sub cmdSearch_Click()
Dim key As Integer, str As String
key = InputBox("Enter the Persons No whose details you want to know: ")
Set rs = Nothing
str = "select * from pers where no=" & key
rs.Open str, adoconn, adOpenForwardOnly, adLockReadOnly
txtNo.Text = rs(0)
txtName.Text = rs(1)
txtDistrict.Text = rs(2)
txtDob.Text = rs(4)
txtPhone.Text = rs(3)
txtID.Text = rs(5)
Set rs = Nothing
str = "select * from pers where no="
rs.Open str, adoconn, adOpenDynamic, adLockPessimistic
If txtNo Is Null Then MsgBox "Invalid entry .", vbCancel, "Note it..."
 
End Sub