error 80040e47 Error a convertir dato varchar a numeric

[ron234]

Tengo una base de datos en sql server y estoy programando en visual basic 6.0 hago la conexion normal pero a la hora de la consulta me genera el error 80040e07 e cambiado la columnas de la base de datos a decimal y numeric y me genera el mismo error este es el codigo:
-------------------------------------------------------------------------------------------------------
Set d = New ADODB.Recordset
consulta = "SELECT * FROM tempfinaciamiento WHERE tipodeseguro='" & Combo1.Text & "'"
d.Open consulta, conexion, adOpenStatic, adLockReadOnly, adCmdText
monto1 = FormatNumber(Text8.Text, 2)
If d.RecordCount > 0 Then
q = MsgBox("Seguro ya Agregado", , "Aviso")
Else
consult = "INSERT INTO tempfinaciamiento(tipodeseguro, montofinanciar) VALUES ('" & Trim(Combo1.Text) & "', " & "CAST('" & monto1 & "'AS DECIMAL(18,2))" & ")"
conexion.Execute consult
Adodc1.Refresh
Command2.Enabled = False
monto1 = FormatNumber(Text8.Text, 2)
monto2 = FormatNumber(Text7.Text, 2)
Text7.Text = monto1 + monto2
Combo1.Text = ""
Text8.Text = ""
Set d = Nothing
End If
--------------------------------------------------------------------------------------------------
espero que me puedan ayudar