Mysql y VB 6

[manuVelazquez]

hola tengo un pequeño problema con un programita que vengo haciendo cuando le paso el valor para que agregue un nuevo item a mi combo localidad, me dice que el argumento no es opcional. probe directamente agregando un texto frmChofer_Edicion.cmbLocalidad.additem = "hola" pero tampoco, en cambio tengo otro formulario que si me permite, muchas gracias

aca les dejo el codigo

Código:

'Controla si hay registros para editar
If Not rsChofer.EOF And Not rsChofer.BOF Then
'MODIFICA EL CAPTION DE frmCircuito_edicion
frmChofer_Edicion.Caption = "Modificando Chofer"
'seleccionamos el registro correspondiente de mis caja de textos
    frmChofer_Edicion.txtID_Chofer = rsChofer!id_chofer
    frmChofer_Edicion.txtDNI_Chofer = rsChofer!dni_chofer
    frmChofer_Edicion.txtApellido_Chofer = rsChofer!apellido_chofer
    frmChofer_Edicion.txtNombre_Chofer = rsChofer!nombre_chofer
    frmChofer_Edicion.txtLegajo_Chofer = rsChofer!numero_legajo_chofer
    frmChofer_Edicion.txtDireccion_Chofer = rsChofer!domicilio_chofer
    frmChofer_Edicion.cmbLocalidad.AddItem = rsChofer!descripcion_departamento
    frmChofer_Edicion.cmbLocalidad.ListIndex frmChofer_Edicion.cmbLocalidad.NewIndex
        
frmChofer_Edicion.cmbProvincia.AddItem = rsChofer!descripcion_provincia
frmChofer_Edicion.cmbProvincia.ListIndex frmChofer_Edicion.cmbProvincia.NewIndex
        
frmChofer_Edicion.cmbEstadoCivil.AddItem = rsChofer!descripcion_estado_civil
frmChofer_Edicion.cmbEstadoCivil.ListIndex frmChofer_Edicion.cmbEstadoCivil.NewIndex
        
    'frmChofer_Edicion.cmbCat_Chofer.AddItem = rsChofer!descripcion_categoria_chofer
    'frmChofer_Edicion.cmbCat_Chofer.ListIndex frmChofer_Edicion.cmbCat_Chofer.NewIndex
       
frmChofer_Edicion.Show (1)
      ' cargarCircuito
      ' EditarGrillaCircuito
Else
    'Si no hay datos tiramos un mensaje de error
        MsgBox ("No hay ningún Registro para Editar" & vbNewLine & _
        "Por favor verifique si hay algún Registro seleccionado."), vbInformation, "Error en la edición"
End If
Exit Function
ira:
    MsgBox Err.Description

End Function

[manuVelazquez]

doy por cerrado el tema, el error era en los signos, asi quedaria

frmChofer_Edicion.cmbProvincia.AddItem rsChofer!descripcion_provincia
frmChofer_Edicion.cmbProvincia.ListIndex = frmChofer_Edicion.cmbProvincia.NewIndex