VBA to update MS SQL 2014 DB table : I am getting an error when this code attemps to .execute the function "GetinsertText". i am getting an error of "Run-Time '-214721900 (80040e14)': [Microsoft][ODBC  SQL Server Driver] [SQL Server] Incorrect syntax near the keyword "open"  Option Explicit. i am using the Microsoft ActiveX data object 6.1 as my reference. is it my type of data i am passing which is decimal and dates? 
Option Explicit
Const SQLConStr As String = "Driver={SQL Server};Server=test;Database=Test1;User Id=TestTest1;Password=X;"
------------------------------------------
Sub HITBTC_Ticker_DB_Update()

Dim HITBTCupdate As ADODB.Connection
Dim HITBTCcmd As ADODB.Command


Set HITBTCupdate = New ADODB.Connection
Set HITBTCcmd = New ADODB.Command


HITBTCupdate.ConnectionString = SQLConStr
HITBTCupdate.Open

HITBTCcmd.ActiveConnection = HITBTCupdate

HITBTCcmd.CommandText = GetinsertText

HITBTCcmd.Execute

HITBTCupdate.Close

Set HITBTCupdate = Nothing

End Sub
------------------------------------------


Function GetinsertText() As String

Dim SQLstr As String

SQLstr = "INSERT INTO tblBCNBTC(" & _
"Column1.ask, Column1.bid, Column1.last, Column1.open, Column1.low, Column1.high, Column1.volume, Column1.volumeQuote, Column1.timestamp, Column1.symbol)" & " Values(" & _
"0.0000005939', '0.0000005904', '0.0000005922', '0.0000005800', '0.0000005686', '0.0000006000','833783600','485.83049356',#2018-01-26T01:17:08.060Z#,'BCNBTC)"

GetinsertText = SQLstr

End Function     


