Ayuda con consulta y eliminacion en SQL en VB 6.0

[nefore]

Hola

Tengo un problema al realizar una consulta en SQL mediante el siguiente codigo en Visual Basic 6.0:

Código:

Private Sub Command1_Click()

oper.codigo_operario = codigo.Text
oper.dni = dni.Text
oper.fecha_ingreso = fecha.Text
oper.nombre = nombre.Text
oper.telefono = telefono.Text

cnn.Execute "UPDATE Operario set APELLIDO_NOMBRES = '" & oper.nombre & _
"', DNI = '" & oper.dni & _
"', TELEFONO = '" & oper.telefono & _
"' where CODIGO_OPERARIO = " & oper.codigo_operario & ""
End Sub

en donde cnn y rs estan definidas como

Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset

Me salta un Error de "Pocos Parametros. Se esperaba 2". He intentado agregarle los campos que me falta en la consulta (fecha_ingreso, codigo_operario, etc que en mi opinion no los considero necesario). Pero me salta peor que se esperaban 3 y 4 parametros respectivamente.
Lo mismo con el comando para eliminar:

Código:
Private Sub Command1_Click()

cnn.Execute "delete from Operario where CODIGO_OPERARIO = " & codigo.Text & ""
rs.Requery 1

End Sub

Creo que algo esta mal escrito en la consulta y en la eliminacion pero nose que es.