como hago el insert into en vb?

xaca
16 de Julio del 2003
'conn.Execute "INSERT INTO Producto(IdProducto,IdProveedor,Nombre,Descripcion,Valor,Cantidad,Fecha) VALUES('" & mstrCodigo & "','" & buscarCodProveedor(mstrNombre_Proveedor) & "','" & mstrNombre & "','" & mstrDescripcion & "','" & CDbl(msglValor) & "','" & mlngCant & "','" & mdtmfecha_ingreso & "')"

<- Por que no funciona la primera parte?

Dim rs As ADODB.Recordset
Set rs = CreateRecordSet("SELECT * FROM Producto")
rs.AddNew
rs("IdProducto") = mstrCodigo
rs("IdProveedor") = buscarCodProveedor(mstrNombre_Proveedor)
rs("Nombre") = mstrNombre
rs("Descripcion") = mstrDescripcion
rs("Valor") = CDbl(msglValor)
rs("Cantidad") = mlngCant
rs("Fecha") = mdtmfecha_ingreso
MsgBox "Producto ingresado exitosamente", vbInformation
frmIngItem.ClearTxts
rs.Update
rs.Close
Set rs = Nothing
Set producto = Nothing

xaca
16 de Julio del 2003
alguien podria publicar un ejemplo insertando fechas, numeros, booleanos, etc...

todo bien...
tnxs