非常急的编程问题，请问怎么写才正确

Private Sub DataList1_Click()
Dim i As Integer
Dim cb(i) As String
Dim conn_STRING As String
conn_STRING = "Provider=SQLOLEDB;User ID=sa;PWD=;Data Source=(local);Initial Catalog=tmcdatabase"
Set cn = New ADODB.Connection
cn.Open conn_STRING
Dim dbrs1 As New ADODB.Recordset
Dim dbrs2 As New ADODB.Recordset
If dbrs2.BOF = False Then
dbrs2.MoveFirst
sqlstr = "用户名 ='" & DataList1.BoundText & " '"
dbrs2.Filter = sqlstr
If dbrs2.EOF Then
dblist1.BoundText = 0
Else
For i = 1 To 9
If dbrs2.Fields(i) = -1 Then
cb(i).Value = 1
Else
cb(i).Value = 0
End If
Next i
End If
End Sub
我是编写一个用户权限设置的程序，这里是对datalist中显示出来的用户进行不同模块权限的设置。其中用到checkbox。一共有9个，分别代表不同的操作模块。但是这一段代码中总出现问题，能有高手解答一下么？要求比较急，麻烦大家了。

非常急的编程问题,救我 请问这个管理的编程怎么写? 编程怎么写的？ 非常急！！！！请问单位接受函怎么写？？ 请问各位从事C++编程职业才的一个问题. 我才写编程, 关于编程非常白痴的问题。。。。 菜鸟问题:这个的编程该怎么写? 非常急的问题!!!!!! 非常急的问题