insercion sql desde visual basic 6

[atsoca_ragde]

hola a todos...estoy programando un sistemita con vb6 y sql 2005 express, de altas bajas y consultas, pero despues de tanto buscar no he podido dar con el error en mi codigo, ojala alguien me pueda ayudar,se los agradezco de antemano y les anexo mi codigo para que lo chequen, por si algo me anda fallando.

saludos...

Option Explicit
Public con As ADODB.Connection
Public com As ADODB.Command
Public rst As ADODB.Recordset

Public nombre As String
Public clave As Integer
Public existencia As Integer

Private Sub cmdInsertar_Click()

clave = Val(txtClave.Text)
nombre = txtNombre.Text
existencia = Val(txtExistencia.Text)

Set con = New ADODB.Connection
con.Open "Provider= SQLOLEDB; Initial Catalog= multiservicios;Data Source= LAPTOP-ACER\SQLEXPRESS; integrated security=SSPI; persist security info= true;"

Set com = New ADODB.Command
com.ActiveConnection = con
com.CommandText = "insert into herramientas (idHerramienta,descripcion,existencia)values (2,'nombre',3)"
con.Close

End Sub