Vb6:buat Button Utk Simpan Check Box Dlm Flexgrid

[ndsaid 0]

For I = 0 To MSFlexGrid1.Row Step 1
sql = "INSERT INTO Makmal1 "
sql = sql & "(kelas,peralatan,bilangan,pasti,pilih)"
sql = sql & " VALUES "
sql = sql & "('"
sql = sql & Combo1.Text & " ','"
sql = sql & MSFlexGrid1.TextMatrix(I + 1, 1) & " ','"
sql = sql & MSFlexGrid1.TextMatrix(I + 1, 2) & " ','"
sql = sql & MSFlexGrid1.TextMatrix(I + 1, 3) & "','"
sql = sql & MSFlexGrid1.TextMatrix(I + 1, 4) & "')"
Next I
Error : Data type mismatch in criteria expression. Saya hadapi masalah pada .TextMatrix .Pada database,data type utk "pilih "saya letak YES/NO. TextMatrix dan YES/NO tak matching. Patut saya gantikan .TextMatrix dgn apa?