VBA Excel SQL 对象变量或未设置块变量

嗨，我在尝试上传到 sql 时不断收到错误消息。代码之前一直在运行，但是我可以找到重写代码时遗漏的东西..

它正在下降：

cmd.CommandText = strSQL

代码非常简单，它需要一张工作表中的一列，然后将其上传或插入到 SQL 数据库中。请告诉我我遗漏了什么代码，或者我是否在这里声明了错误

Dim cn As ADODB.Connection
Set sTroksheet = ThisWorkbook.Sheets("Mlist")
Set cn = New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strConn As String
Dim SQLstr As String
Dim SQLstrl As String
Dim Password As String
Dim Server_Name As String
Dim User_ID As String
Dim Database_Name As String
Dim Port_Name As String
Dim strTable As String
Dim excel_row As Long
Dim cmd As ADODB.Command
Dim rst_recordset As ADODB.Recordset

If ThisWorkbook.Sheets("Tournament Settings").Range("D4") = vbNullString 
Then
MsgBox "Please setup database connection first in (DB Setup) in top menu"
Exit Sub
Else




Server_Name = Sheets("Software_Setup").Range("c3").Value
Database_Name = Sheets("Software_Setup").Range("c4").Value
User_ID = Sheets("Software_Setup").Range("c5").Value 'id user or username
Password = Sheets("Software_Setup").Range("c6").Value 'Password
Port_Name = Sheets("Software_Setup").Range("c7").Value 'Password


strConn = "Driver={MySQL ODBC 5.3 ANSI Driver};Server=" & _
        Server_Name & ";Database=" & Database_Name & _
        ";Uid=" & User_ID & ";Pwd=" & Password & ";"





cn.Open strConn
LastRow = sTroksheet.Range("A65536").End(xlUp).row
strTable = Database_Name & ".TLHMember_List"

strSQL = "INSERT INTO " & strTable & _
" (Player) VALUES "
strSQL2 = ""
For excel_row = 1 To LastRow
strSQL2 = strSQL2 & _
"('" & sTroksheet.Cells(excel_row, 1) & "') ,"
            Next excel_row

            strSQL = strSQL & strSQL2
            Mid(strSQL, Len(strSQL), 1) = ";" ' gets rid of the last comma

            cmd.CommandText = strSQL
            cmd.Execute
cn.Close
End If