Error de compilacion en VB 6.0

[drakonifor]

Hola a todos, yo tengo un problema similar al de Ne083, tengo este codigo
Private Sub Cuadro_combinado46_BeforeUpdate(Cancel As Integer)
Dim str As String, str2 As String, str3 As String
Dim cont As Integer

Cuadro_combinado44.Clear

str = "Select cve_estado from Estados where estado='" & [Forms]![Control Maestro1]![Cuadro combinado46] & "'"
Set miBD = CurrentDb()
Set rs = miBD.OpenRecordset(str, dbOpenSnapshot)
str2 = "Select Municipio from Municipio where IdEstado=" & rs("cve_estado")
Set rs2 = miBD.OpenRecordset(str2, dbOpenDynaset)

Do While Not rs2.EOF
Cuadro_combinado44.AddItem rs2!Municipio
rs2.MoveNext
Loop
rs2.Close

End Sub

les explico, tengo dos cuadros combinados en un formulario acces
el primero es una consulta de los estados
y el segundo es otra consulta de los municipios segun el estado seleccionado
el codigo de consultas y de llenado del cuadro combinado me sale muy bien
pero cuando elijo un estado en el primer combo
automaticamente en el segundo combo me salen los municipios de ese estado
pero cuando elijo un estado diferente
me muestra los municipios de ese estado y los municipios del estado q elegi anteriormente,
encontre q con cuadro_combinado.clear se limpia pero al ponerlo me sale el erro de q el metodo o dato miembro no se encuentra, segun he leido es por las referencias pero no se q referncia me permita usar el metodo Clear podrian ayudarme se los agradeceria muchisimo