Yok bende çalışmıyordu şimdi ben If yapısıyla string türünden bir değişkene atadım değeri satıra onu yazdım.
Dim str as String
If cbbalkon = True Then
str= "1"
Else
str = "2"
End If Şeklinde 119 Satıra uyarlamak zor olacak ama uğraşıcam artık. Yardımlarınız için teşekkür ederim o zaman ben başka bir soru sorabilirmiyim

Şimdi ekte vericeğim kodlarda Insert Into satırında söz dizimi hatası veriyor diğer formlarımda yapmıyor. Ben baya kontrol ettim tamamen aynı access'deki alanlarda doğru yazılmış ama sözdizimi hatası var Insert Intoda da Updatede de yardımcı olursanız sevinirim.