'Coba pakai coding seperti ini
'gunakan button check pakai index berurutan
Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset
dim aSQL as String
Private Sub Command1_Click()
For i = 0 To 2 'Nilai ini berdasarkan tombol check ada berapa
If Check1(i).Value = 1 Then
If Rs.state <> adStateClosed Then Rs.Close
aSQL = "insert into tabel1(nama,BUAHKESUKAAN) " & _
"values('" & Text1.text & "'," & _
"'"Check1(i).Caption & "')"
Rs.Open aSQL, Db, adOpenDynamic, adLockOptimistic
End If
Next
End Sub
