i am having problem in following code while ckick add new button to add record to database (ms access)

Dim db As Database Dim wr As Workspace Dim rs As Recordset Private Sub Command1_Click() rs.AddNew rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text3.Text rs(3) = Text4.Text rs(4) = Text5.Text rs(5) = Text6.Text rs(6) = Text7.Text rs(7) = Text8.Text rs(8) = Text9.Text rs(9) = Text10.Text rs(10) = Text11.Text rs(11) = Text12.Text rs(12) = Text13.Text rs(13) = Text14.Text rs(14) = Text15.Text rs(15) = Text16.Text rs.Update End Sub Private Sub Command10_Click() Dim d1 As Integer d1 = DateDiff("d", Text13.Text, Text14.Text) Text15.Text = Val(d1) End Sub Private Sub Command2_Click() rs.Edit End Sub Private Sub Command3_Click() rs.Update rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text3.Text rs(3) = Text4.Text rs(4) = Text5.Text rs(5) = Text6.Text rs(6) = Text7.Text rs(7) = Text8.Text rs(8) = Text9.Text rs(9) = Text10.Text rs(10) = Text11.Text rs(11) = Text12.Text rs(12) = Text13.Text rs(13) = Text14.Text rs(14) = Text15.Text rs(15) = Text16.Text End Sub Private Sub Command5_Click() rs.MoveFirst opendata End Sub Private Sub Command6_Click() rs.MoveNext opendata If rs.BOF Then MsgBox "Bening" End If End Sub Private Sub Command7_Click() rs.MoveNext opendata If rs.EOF Then MsgBox "End" End If End Sub Private Sub Command8_Click() rs.MoveLast opendata End Sub Private Sub Command9_Click() If Text15.Text = 0 Then Text16.Text = "no" Else Text16.Text = "" Text16.Text = Text15.Text * 2 End If End Sub Private Sub Form_Load() Set wr = DBEngine.Workspaces(0) Set db = wr.OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\Library\lis.mdb") Set rs = db.OpenRecordset("lis") End Sub Sub opendata() On Error Resume Next Text1.Text = rs(0) Text2.Text = rs(1) Text3.Text = rs(2) Text4.Text = rs(3) Text5.Text = rs(4) Text6.Text = rs(5) Text7.Text = rs(6) Text8.Text = rs(7) Text9.Text = rs(8) Text10.Text = rs(9) Text11.Text = rs(10) Text12.Text = rs(11) Text13.Text = rs(12) Text14.Text = rs(13) Text15.Text = rs(14) Text16.Text = rs(15) End Sub Sub clear() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text13.Text = "" Text14.Text = "" Text15.Text = "" Text16.Text = "" End Sub