Fomulario continuo, mostrar datos de los listbox dependientes

Hola,

Tengo 1 formulario continuo que muestra los datos de una tabla de clientes, con el nombre, provincia (listbox) y pais (listBox).


Dependiendo de que Pais sea ese cliente, me gustaría que mostrarse la provincia actual, y las distintas provincias de ese país en el Listbox de la Provincia.

Para ello estoy intentando usar la función 'Paint' del subfommulario detalle:

Private Sub Detalle_Paint()
On Error GoTo error


If Not IsNull(Me.pais.Value) And Trim(Me.pais.Value) <> "" Then

Me.provincia.rowsource = "select provincia from tabla_provincias where pais=' & me.pais.value & "';"

Me.provincia.value = me.pais.column(1)

End If


Exit Sub
error:
MsgBox Err.Description
Resume Next
End Sub



Pero siempre se muestra el mismo texto en la provincia, y no en cada uno el suyo. Donde esta el problema?

Un saludo.