Texbox,adodc база данных - VB

Формулировка задачи:

День добрый. У меня на форме есть textbox, optionbutton и кнопка, при выборе определенной (optionbutton) должно заноситься в текстбокс и следом в базу данных(access) т.е другими словами сохраняться в базе. соединение у меня через adodc. Снизу представлен код, при запуске которого появляется ошибка. не нравиться ему вот этот кусочек

adodc1.UpdateRecord
adodc1.Recordset.Bookmark = adodc1.Recordset.LastModified(который представлен ниже)
Private Sub Command1_Click()
If Option1.Value = True Then

MsgBox "вы выбрали 'dalacom' состояние подключено"

Text7.Text = "dalacom"

adodc1.UpdateRecord
adodc1.Recordset.Bookmark = adodc1.Recordset.LastModified
Unload Me
End If
End Sub

End Sub

Решение задачи: «Texbox,adodc база данных»

textual
                            Листинг программы 
                        
                            Text7.Text = "dalacom"