Не работает сравнение значений, полученных из БД (Программа тестирования) - VB

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

Private Sub Command4_Click()
On Error Resume Next
Data1.Recordset.MoveNext
 
If Option1.Value = True Then
If otv1.Caption = Win.Caption Then d = d + 1
End If
 
If Option2.Value = True Then
If Otv2.Caption = Win.Caption Then d = d + 1
 
End If
If Option3.Value = True Then
If Otv3.Caption = Win.Caption Then d = d + 1
End If
 
Text4.Text = d
End Sub
сравнивает когда ему захочется в чём проблема? капшены отв1-3 беруться из бд, капшен win тоже, тоесть они сверяют тексты ответов и если они совпадают то прибавляет +1 бал после чего выводит количество балов в текстовое поле сверял ответы в бд, они одинаковые ибо копировал и вставлял их, что может быть не так? з.ы. бд делалась в акцесе, преобразовывалась в 97 формат.

Код к задаче: «Не работает сравнение значений, полученных из БД (Программа тестирования) - VB»

textual
if Option3.Value =Checked

10   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ