RSView32 ODBC Access

Can anyone tell me what is wrong with this code!!!
It seems to be hanging-up on the string. I can take the
string commands out and it works fine. Numbers = GOOD and
String or Text = ERROR

Dim objConnection
Dim strConnectionString
Dim strSQL
Dim objCommand
'SQL Table
Dim SQLDate
Dim SQLSFC90deg
Dim SQLSFCoffset
Dim SQLCFCI90deg
Dim SQLCFCIoffset
Dim SQLCFCII90deg
Dim SQLCFCIIoffset
Dim SQLStiffnerWeld
Dim SQLWysong

On Error GoTo ErrorHandler
'On Error Resume Next
gTagDb("PM_Tool\Reset").Value = 1
gTagDb("PM_Tool\RunCmd").Value = 0
strConnectionString = "Provider=MSDASQL;DSN=PM;UID=;PWD=;"
Table = "Tooling"
' report table
SQLDate = "'" & Date & "'"
SQLSFC90deg = gTagDb("PM_Tool\SFC90deg").Value
SQLSFCoffset = gTagDb("PM_Tool\SFCoffset").Value
SQLCFCI90deg = gTagDb("PM_Tool\CFCI90deg").Value
SQLCFCIoffset = gTagDb("PM_Tool\CFCIoffset").Value
SQLCFCII90deg = gTagDb("PM_Tool\CFCII90deg").Value
SQLCFCIIoffset = gTagDb("PM_Tool\CFCIIoffset").Value
SQLStiffnerWeld = gTagDb("PM_Tool\StiffnerWeld").Value
SQLWysong = gTagDb("PM_Tool\Wysong").Value

'strSQL = "INSERT IGNORE INTO " & Table & _
' " (SFC90deg,SFCoffset,CFCI90deg,CFCIoffset,CFCII90deg,CFCIIoffset,StiffnerWeld,Wysong) VALUES (" _
' & SQLSFC90deg & "," & SQLSFCoffset & "," & SQLCFCI90deg & "," & SQLCFCIoffset & "," & SQLCFCII90deg & "," & SQLCFCIIoffset & "," & SQLStiffnerWeld & "," & SQLWysong & ")"

strSQL = "INSERT IGNORE INTO " & HT_Table & _
" (SFC90deg,SFCoffset,CFCI90deg,CFCIoffset,CFCII90deg,CFCIIoffset,StiffnerWeld,Wysong,Date) VALUES (" _
& SQLSFC90deg & "," & SQLSFCoffset & "," & SQLCFCI90deg & "," & SQLCFCIoffset & "," & SQLCFCII90deg & "," & SQLCFCIIoffset & "," & SQLStiffnerWeld & "," & SQLDate & "," & SQLWysong & ")"


Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
gTagDb("PM_Tool\SFC90deg").Value = 0
gTagDb("PM_Tool\SFCoffset").Value = 0
gTagDb("PM_Tool\CFCI90deg").Value = 0
gTagDb("PM_Tool\CFCIoffset").Value = 0
gTagDb("PM_Tool\CFCII90deg").Value = 0
gTagDb("PM_Tool\CFCIIoffset").Value = 0
gTagDb("PM_Tool\StiffnerWeld").Value = 0
gTagDb("PM_Tool\Wysong").Value = 0
Exit Sub

You have to delimit strings with the appropriate delimiter, usually an apostrophe.


Dates should be in fully expanded, string format as well.

OK, here is the "cut-down" version of what is happening. For some reason this code is not working with string data. I have put the apostrophe in and still does not work. Below is the code with the
apostrophe in. I am starting to think it is; well I don't know what i
think now.
Dim objConnection
Dim strConnectionString
Dim strSQL
Dim objCommand
Dim SQLDate
strConnectionString = "Provider=MSDASQL;DSN=test;UID=;PWD=;"
Table = "string"
SQLDate = "'" & "test" & "'"
strSQL = "INSERT IGNORE INTO " & Table & _
" (STR) VALUES (" _
& SQLDate & ")"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open
Set objCommand = CreateObject("ADODB.Command")
With objCommand
.ActiveConnection = objConnection
.CommandText = strSQL
End With
objCommand.Execute
Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing