подскажите пожалуйста как в VBA выполнить sql запрос с параметром?
Мой код:
Dim dbPath As String
dbPath = "C:\Users\User\Desktop\База.xlsx"
Dim ConnectionString As String
ConnectionString = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & dbPath & ";HDR=Yes';"
Conn.Open ConnectionString
Cmd.ActiveConnection = Conn
Cmd.CommandText = "UPDATE [База$] SET Значение=@param WHERE Ид=" & Txt_Id.Text & ""
Cmd.Parameters.Append Cmd.CreateParameter("@param", adVarChar, adParamInput, 200, Txt_Name.Text)
Cmd.Execute
Получаю ошибку "Слишком мало параметров. Требуется 1." Заранее спасибо.