类型不匹配，打开RecordSet

Question

始终获取此错误：

运行时错误“13”：类型不匹配。

在这条线上rs.Open , sqlstr, conn

我什么都试过了，但解决不了问题。我正在尝试更新MySQL数据库中的一行。

 Private Sub CommandButton3_Click()
    Dim conn As New ADODB.Connection
    Dim server_name As String
    Dim database_name As String
    Dim user_id As String
    Dim password As String
    Dim i As Long 
    Dim sqlstr As String 
    Dim table1 As String, table2 As String
    Dim field1 As String, field2 As String
    Dim rs As ADODB.Recordset
    Dim vtype As Variant

    server_name = "99.99.99.99"
    database_name = "name" 
    user_id = "user" 
    password = "pass"

    Set conn = New ADODB.Connection
    conn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
    & ";SERVER=" & server_name _
    & ";DATABASE=" & database_name _
    & ";UID=" & user_id _
    & ";PWD=" & password _
    & ";OPTION=16427"

    Set rs = New ADODB.Recordset
    sqlstr = "SET SQL_SAFE_UPDATES = 0; UPDATE table SET poslano = 'Poslano' WHERE poslano = 'Neposlano';"

    rs.Open , sqlstr, conn
    With Worksheets("List6").Cells("A1") 
    .ClearContents
    .CopyFromRecordset rs
    End With
    skipextract:

    On Error Resume Next
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    On Error GoTo 0

    End Sub

Answer 1

rs.Open后面的逗号使VBA“认为”忽略了源：

​

​

因此，它给出了类型不匹配错误。试着写成这样：

rs.Open sqlstr, conn