Private Sub Command1_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() Adodc1.Recordset.Update MsgBox "Record Saved" End Sub Private Sub Command3_Click() If Adodc1.Recordset.EditMode = adEditAdd Then Adodc1.Recordset.Update MsgBox "Recordset Saved" Else Adodc1.Recordset.Update MsgBox "Record Updated" End If End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click() Adodc1.Recordset.MoveFirst End Sub Private Sub Command6_Click() Adodc1.Recordset.MovePrevious End Sub Private Sub Command7_Click() Adodc1.Recordset.MoveNext End Sub Private Sub Command8_Click() Adodc1.Recordset.MoveLast End Sub