Либо BoF или EOF имеет значение true

if NOT rs.eof then
rs.Fields(0).Value = Text1
rs.Fields(1).Value = Text2
rs.Fields(2).Value = Text3
rs.Fields(3).Value = Text4
rs.Fields(4).Value = Text5
If Option1.Value = True Then
rs.Fields(5).Value = Option1.Caption
Else
rs.Fields(5).Value = Option2.Caption
End If
rs.Fields(6).Value = Text6
rs.Fields(7).Value = Text7
rs.Fields(8).Value = Text8
rs.Fields(9).Value = Text9
rs.Fields(10).Value = Text10
rs.Fields(11).Value = trext11
MsgBox ("data is saved successfully"), vbInformation
rs.Update
end if