Vb.net CommandText属性尚未正确初始化

我使用vb.net和mysqladmin作为我的数据库

我的代码有问题，我不知道如何调试它。 请帮帮我

我的问题是，当我单击“更新”按钮时，错误显示
“CommandText属性尚未正确初始化。”

这是代码：

 Dim intDB_ID_Selected As Integer


'Private Sub cmdupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdupdate.Click



If MessageBox.Show("Do you want to update this record?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = vbYes Then

 Dim sqlcommand As New MySqlCommand("UPDATE user_info " & _
                                 " SET name = '" & txtname.Text.Trim & "'," & _
                                 " address = '" & txtaddress.Text.Trim & "', " & _
                                 " age = '" & txtage.Text.Trim & "', " & _
                                 " WHERE id= '" & intDB_ID_Selected & "'", sConnection)
        Call execCmd(SQL)
        load1()
        MsgBox("Record updated successfully.", MsgBoxStyle.Information)
    End If
End Sub `


 Public Sub execCmd(ByVal PstrSQL As String)
    With cmd
        .CommandText = PstrSQL
        .ExecuteNonQuery()
    End With
End Sub

错误行在中

.ExecuteNonQuery（）

---

我是这门语言的初学者，所以请帮助我。我求你们了

什么是cmd？它是否已初始化

---

哦，尝试使用参数化查询。越早养成这种习惯越好。

在选择messagebox后尝试这样做。execCmd中未正确初始化cmd

Dim sqlStr as String = "UPDATE user_info " & _
                       " SET name = '" & txtname.Text.Trim & "'," & _
                       " address = '" & txtaddress.Text.Trim & "', " & _
                       " age = '" & txtage.Text.Trim & "', " & _
                       " WHERE id= '" & intDB_ID_Selected & "'", sConnection)

Dim sqlcommand As New MySqlCommand(sqlStr)
sqlcommand.ExecuteNonQuery()

load1()
MsgBox("Record updated successfully.", MsgBoxStyle.Information)

---

SQL变量中有什么？您正在将它传递到execCmd方法中，但我看不到它的设置位置。