Работающий вариант посредством объекта ADO - Adodb
Sub InsertSQL()
Dim St As String, sn As Single, CustomerName As String
Dim Rst As New ADODB.Recordset
sn = cells(6,5).Value ' число с плавающей точкой
CustomerName = cells(6,6).Value ' строка
St = " INSERT INTO tbl_Orders (fld_Value, fld_Custom_ID) Values (" &
St = St & Cstr(sn) & ", " & CustomerName & ")"
ConnectionString = "Provider=SQLOLEDB.1; Data Source=111.121.11.111; Initial
Catalog = BazaName; Persist Security Info=True; User ID=imyausera;
Password=1234546"
Rst.CursorType = adOpenStatic
Rst.CursorLocation = adUseClient
Rst.Open ConStr, ConnectionString
Rst.Close
Set Rst = Nothing
End Sub
Обратите внимание на
- Типы переменных и соответ. типы в базе данных SQL
- Синтаксис запроса SQL и правильность в конечном счете (генерация строки)
Необходимо добавить расширение

- Правильность адресации к серверу и т.д.
- Для замены строки в SQL таблице применяете инструкцию "UPDATE ...."