错误 - 没有给出一个或多个参数的值

Question

我写了这段代码 但它给了我错误，没有为一个或多个参数给出的值。实际上它完全在我的笔记本电脑上运行但是当我将它转移到我的电脑上时它会显示这个错误。 我也更改了连接字符串，但它不断显示错误

    Dim cmd As New OleDb.OleDbCommand
    Dim i As Integer
    If Not cnn.State = ConnectionState.Open Then
        cnn.Open()
    End If
    cmd.Connection = cnn
    cmd.CommandText = "update Dolly set Stock=" & txtstock.Text & " where(Item='" & txtname.Text & "')"

    i = cmd.ExecuteNonQuery()
    If i <> 0 Then
        MsgBox("Data Updated..")
    Else
        MsgBox("Sorry...")
    End If
    cnn.Close()
    refreshdata()
End Sub