Сохранение из приложения в базу Access

Private Sub Command12_Click()
Randomize
Text7.Text = Str(Round(Rnd() * 100))
Text8.Text = Str(Round(Rnd() * 100))
Text9.Text = Str(Round(Rnd() * 100))
Text10.Text = Str(Round(Rnd() * 100))
Text11.Text = Str(Round(Rnd() * 100))
Text12.Text = Str(Round(Rnd() * 100))
Text13.Text = Str(Round(Rnd() * 100))
Dim s As Long
Dim s2 As Long
Dim s3 As Long
Dim s4 As Long
Dim s5 As Long
Dim s6 As Long
Dim s7 As Long
s = Val(Text7.Text)
s2 = Val(Text8.Text)
s3 = Val(Text9.Text)
s4 = Val(Text10.Text)
s5 = Val(Text11.Text)
s6 = Val(Text12.Text)
s7 = Val(Text13.Text)
Text14.Text = (s + s1 + s2 + s3 + s4 + s5 + s6 + s7) / 7
End Sub
 
Private Sub Command13_Click()
Dim i As Integer
Dim a(1 To 10) As String
 
For i = 1 To 10
a(i) = Text7.Text
Next i
 If Form4.Adodc1.Recordset.RecordCount > 0 Then
 Form4.Adodc1.Recordset.MoveLast
 End If
 
 Form4.Adodc1.Recordset.AddNew
 
 Form4.Adodc1.Recordset.Fields("n_zachetki") = a(1)
 Form4.Adodc1.Recordset.Fields("disciplina") = a(2)
 Form4.Adodc1.Recordset.Fields("lab1") = a(3)
 Form4.Adodc1.Recordset.Fields("lab2") = a(4)
 Form4.Adodc1.Recordset.Fields("lab3") = a(5)
 Form4.Adodc1.Recordset.Fields("sr1") = a(6)
 Form4.Adodc1.Recordset.Fields("sr2") = a(7)
 Form4.Adodc1.Recordset.Fields("kr1") = a(8)
 Form4.Adodc1.Recordset.Fields("kr2") = a(9)
 Form4.Adodc1.Recordset.Fields("semestr") = a(10)
 
  Form4.Adodc1.Recordset.Update
  
End Sub