如何将Access 2016中的多个复选框连接到SQL Server中的列？

Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
conn.Open

Dim strSQL As String
strSQL = "INSERT INTO 表名 (列名) VALUES ('" & Me.复选框控件名称 & "')"
conn.Execute strSQL

Dim strSQL As String
strSQL = "UPDATE 表名 SET 列名 = '" & Me.复选框控件名称 & "' WHERE ID = " & Me.复选框控件名称
conn.Execute strSQL

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
Dim strSQL As String
strSQL = "SELECT 列名 FROM 表名 WHERE ID = " & Me.复选框控件名称
rs.Open strSQL, conn
If Not rs.EOF Then
    Me.复选框控件名称 = rs.Fields("列名").Value
End If
rs.Close
Set rs = Nothing