how to store CHECKBOX AND OPTION VALUE IN A ACCESS DATABASE USING ADODC VB6

[Siddhanth]

I Have 3 check box I.e
Hobbies [] Dancing (check 1)
[] Singing (check 2)
[] Drawing(Check 3)
And
Gender () Male () Female

I want to store both single and multiple check box value

Update is my commandbutton for storing the datas

I have also tried this coding but it didn't work

Private Sub check1_click()
If check1.value = True then
Abodc1.Recordset.update
Hobbies=Dancing
Else if check2.value=false then
Else
Check 3.value=false
End if

End sub


Private Sub check1_click()
If check2.value = True then
Abodc1.Recordset.update
Hobbies=Singing
Else if check3.value=false then
Else
Check 1.value=false
End if

End sub



Private Sub check1_click()
If check3.value = True then
Abodc1.Recordset.update
Hobbies=Drawing
Else if check1.value=false then
Else
Check 2.value=false
End if

End sub

FOR OPTIONS BUTTON


Private Sub check1_click()
If option 1.value = True then
Abodc1.Recordset.update
Gender=Male
End if

End sub
Private Sub check1_click()
If option 2.value = True then
Abodc1.Recordset.update
Gender=Female
End if

End sub