llenar un combobox en una busqueda

[pilar_tellez]

hola a todos necesito ayuda, no se me llena el combobox no se como hacer que se llene un combo box en una busqueda.

tengo dos tablas una se llama persona que tiene los sigiuentes campos (id, nombre, apellido y id_comuna), y la otra se llama comuna que tiene los campos (id_comuna y nom_comuna) que ambas columnas estan relacionadas por el campo id_comuna.

en mi formulario ingreso esta informacion a la tabla persona, y la informacion que corresponde a la comuna el usuario la eligue en un combobox donde en un text muestra el id_comuna, ahora necesito buscar un registro un registro de esta tabla persona pero no se llenar el combo y este es mi codigo:

Sub buscar()
Dim sql As String
Dim cons As Recordset
sql_qco = "select * from persona where id=" & Text6 & ""
Set cons = base.OpenRecordset(sql, dbOpenDynaset)
If cons.RecordCount <> 0 Then
Text1 = cons("nombre")
Text2 = cons("apellido")
Combo1.text= cons("nom_comuna")
End If
End Sub


pero no me lo rellena me arroja error, desde ya gracias por su ayuda.