Actualizacion de DataCombo o ComboBox

Hola experto, tengo un formulario de entrada de datos en los cuales tengo que seleccionar en el primer datacombo y automáticamente llenar ls otros dos relacionándolos con una clave seleccionada en el primero
el primero datacombo lo lleno en una función y elsegundo y el tercero los trato de llenar en el evento clic del primero, una vez que tengo la clave para realizar el filtro, este es el código que tengo en en el evento clic del primero, pero solo me pone un texto u no me llena los datos como debe ser
Private Sub CboUResp_Click(Area As Integer)
Dim Consu As String
If Area = 0 Then
Consu = "Select *from cat_pres_prog WHERE U_RESP='" & CboUResp.BoundText & "'"
rstProg.Open Consu, Conexion, adOpenStatic, adLockReadOnly
Set CboProg.RowSource = rstProg
CboProg.DataField = "cve_prog"
CboProg.BoundColumn = "cve_prog"
CboProg.ListField = "Descrip"
CboProg.Tag = rstProg.Fields("cve_pres_prog")
Set CboProg.DataSource = rstProg
CboProg.ReFill
CboProg.Refresh
rstProg.Close
rstOfi.Open "select *from cat_pres_ofi WHERE U_RESP='" & CboUResp.BoundText & "'", Conexion, adOpenStatic, adLockReadOnly
Set CboOfi.RowSource = rstOfi
CboOfi.DataField = "cve_ofi"
CboOfi.BoundColumn = "cve_ofi"
CboOfi.ListField = "Descrip"
CboOfi.Tag = rstOfi.Fields("cve_pres_ofi")
Set CboOfi.DataSource = rstOfi
CboOfi.Refresh
rstOfi.Close
End If
CboOfi.SetFocus
End Sub
MUCHAS GRACIAS POR su respuesta, ah y otra duda, porqeum e esta dice y dice que el objeto esta cerrado o abierto, ya me confundí y estoy como bloqueada, gracias por la ayuda