Guys....
thanks for responding so promptly, I am impressed.
I have included the code for the insert into statement but it was generated by UD. I know the correction is right because I use the same DSN for phone number search (it works!)
If (CStr(Request("MM_insert"

) <> ""

Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),","

Delim = MM_typeArray(0)
If (Delim = "none"

Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none"

Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none"

Then EmptyVal = ""
If (FormVal = ""

Then
FormVal = EmptyVal
Else
If (AltVal <> ""

Then
FormVal = AltVal
ElseIf (Delim = "'"

Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''"

& "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & "

values (" & MM_dbValues & "

"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command"

MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> ""

Then
Response.Redirect(MM_editRedirectUrl)
End If
End If