升级到SQL链接表后，Access 2010无法在文本框中添加数据

Private Sub addButton_Click()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 创建ADO连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，替换为实际的连接信息
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开连接
    conn.Open
    
    ' 创建ADO记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 设置SQL语句，替换为实际的表名和字段名
    strSQL = "INSERT INTO 表名 (字段1, 字段2) VALUES ('" & Me.textBox.Value & "', '其他字段的值')"
    
    ' 执行SQL语句
    conn.Execute strSQL
    
    ' 关闭连接
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
    
    ' 清空文本框
    Me.textBox.Value = ""
End Sub