想做个VB投票的，不用统计，
怎么只能选3个复选框，且把3个复选框的值写到数据库。
例：
GH   XM    TPZP
1   张三     2
1   张三     4
1   张三     5

   Dim i As Integer
   Dim xCount As Long
   Dim B() As Integer
    For i = 0 To Check1.Count - 1
        If Check1(i).Value = 1 Then
       A = A & Check1(i).Caption & ","（取到3个值，逗号隔开）
        End If
          Next i   
  B = Split(A, ",")（这句提示类型不匹配！）
            zp1.Text = B(0)
           zp2.Text = B(1)
         zp3.Text = B(2)
    把3个值分到3个文本框，再写到数据库。

谢谢！Dim B() As Integer
定义错了。有时候脑子老容易想歪~~

我想知道怎么控制点击复选框第4个时，提示只能选3个。
怎么触发它呢？

谢谢！