Option Explicit
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("S_Rollno") = Text1.Text
Adodc1.Recordset.Fields("S_Name") = Text2.Text
Adodc1.Recordset.Fields("S_Class") = Text3.Text
Adodc1.Recordset.Fields("S_Address") = Text4.Text
MsgBox "Data Stored Into Database", vbInformation, "Information"
End Sub
Private Sub Command2_Click()
DataReport1.Show
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Update
MsgBox "Database Updated", vbInformation, "Information"
End Sub