小吳 VBQA 程式設計討論

請問各位大大:
我有設計一套資料庫,裡面有用到很多Check,但是我顯示出問題
程式如下:
Private Sub DisplayRecord()　'顯示資料副程式
Dim t As Integer
For t = 0 To rs.Fields.Count - 1　'計算基本資料資料表中欄位個數
If Not IsNull(rs.Fields(t)) Then　'判斷基本資料資料表中是否有資料
Text1(t).Text = rs.Fields(t)　'將資料表中的資料放到VB的文字框內
Else
Text1(t).Text = ""　　　　　　'文字框內為空白
End If
Next t
Text2 = rs.RecordCount　 '計算人數
Combo1 = Text1(10)
Combo2 = Text1(11)
Combo3 = Text1(12)
Combo4 = Text1(13)
Check1=Text1(8)　　　　　 '男
Check2=Text1(8)　　　　　 '女
End Sub
其中Combo1 = Text1(10)沒問題
但Check1=Text1(8)
Check2=Text1(8),就不行了
不知該如何處理??
煩請指教!!謝謝~~