```
If Option1.Value = True Then
a = 3
End If
If Option2.Value = True Then
a = 2
End If
If Option1.Value = True Then
a = 1
End If
If Option4.Value = True Then
b = 3
ElseIf Option5.Value = True Then
b = 2
Else
b = 1
End If
If Option7.Value = True Then
c = 3
ElseIf Option8.Value = True Then
c = 2
Else
c = 1
End If
If Option10.Value = True Then
d = 3
ElseIf Option11.Value = True Then
d = 2
Else
d = 1
End If
If Option13.Value = True Then
e = 3
ElseIf Option14.Value = True Then
e = 2
Else
e = 1
End If
If Option16.Value = True Then
f = 3
ElseIf Option17.Value = True Then
f = 2
Else
f = 1
End If
Set rs = New ADODB.Recordset
rs.Open "Insert into section1 VALUES ('" + Label24.Caption + "','" + a + "','" + b + "','" + c + "','" + d + "','" + e + "','" + f + "')", cn, adOpenKeyset, adLockPessimistic
```

please help me to solve my problem, i'm getting this kind of error 'type mismatch' in my insert into.