Visual Basic - error al tratar de grabar

hola tengo el siguiente codigo en mi form...
que es para grabar los datos en una bd, pero me arroja error al presionar el boton grabar
y no he conseguido ver cual es el error.
les dejo el codigo

Private Sub cmdGrabar_Click()
Timer1.Enabled = False
lblEditando.Caption = ""
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM farmacos WHERE codigo LIKE '" & txtCodigo & "'", cn, adOpenDynamic, adLockOptimistic
rs!Codigo = txtCodigo.Text
rs!Fecha = CDate(txtFecha)
rs!Guia = txtGuia.Text
rs!Proveedor = txtProveedor.Text
rs!Cantidad = CLng(cboCantidad.Text)
rs!Devolucion = txtDevolucion.Text
rs!Presentacion = txtPresentacion.Text
rs!Medicamento = txtMedicamento.Text
rs!Trapi = chkTrapi.Value
rs!Vivanco = chkVivanco.Value
rs!Crucero = chkVivanco.Value
rs!Cayurruca = chkCayurruca.Value
rs!Mantilhue = chkMantilhue.Value
rs!Carimallin = chkCarimallin.Value
rs!Sector1 = txtSector1.Text
rs!Sector2 = txtSector2.Text
rs!Sector3 = txtSector3.Text
rs!Procedimiento = txtProcedimiento.Text
rs!ClinicasDentales1 = txtDentales1.Text
rs!ClinicasDentales2 = txtDentales2.Text
rs!ClinicasDentales3 = txtDentales3.Text
rs!ClinicasDentales4 = txtDentales4.Text
rs!IRA = txtIra.Text
rs!ERA = txtEra.Text
rs!SalaMotora = txtSala.Text
rs!Prestamos = txtPrestamos.Text
rs!Saldo = txtSaldo.Text
rs.Update
Call CargaListView("SELECT * FROM farmacos", View1)
MsgBox "Se ha actualizado los datos", vbInformation
Call ClearControls(Me)
txtFecha.SetFocus


cmdEditar.Enabled = True
End Sub

Espero me puedan ayudar PORFAVOR SE LOS AGRADEZCO MUCHO
Chao