VB如何修改复选框的内容并贮存到ACCESS数据库中?请教高手

Question

有60多个复选框,同时写入ACCESS数据库中的一个字段中,代码如下:
Private Sub Command1_Click() '添加
    Dim cn As ADODB.Connection
    Dim str1 As String
    Set cn = New ADODB.Connection
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb;"
    str1 = ""
    Dim i As Long
    For i = 0 To Check1.UBound
        str1 = str1 & CStr(Check1(i).Value)
    Next
    cn.Execute "INSERT INTO t1(ah) VALUES ('" & str1 & "') "
    cn.Close
    Set cn = Nothing
End Sub读取字段中的内容,直接显示在复选框中的代码:
Private Sub Command2_Click() '读取
    Dim cn As ADODB.Connection
    Dim s As String
    Dim rs As New ADODB.Recordset
    Dim str1 As String
    Dim i As Long
    
    Set cn = New ADODB.Connection
    cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb;"
    rs.Open "select ah from t1 where id='" & Val(Text1.Text) & "'", cn, adOpenForwardOnly, adLockReadOnly, adCmdText
    str1 = rs.Fields(0)
    For i = 0 To Check1.UBound        Check1(i).Value = CLng(Mid(str1, i + 1, 1))
    Next
End Sub添加跟读取都可以实现,但是修改的怎样实现?
如何修改复选框的内容并贮存到ACCESS数据库中?请教高手

Answer 1

根据复选框构建自己的Sql语句，问题的关键在于Sql语句的构建，楼主看看这个，关于SQL语句的资料：
http://download.csdn.net/source/1644211

Answer 2

sql = "UPDATE t1 SET ah =" & str1 & " WHERE where id=" & Val(Text1.Text)