Visual Basic - Como pasar los datos a un combo

Hola foro: solo quiero ver como relleno de datos un datacombo con una sentencia SQL... tengo lo siguiente...
Set conn = New ADODB.Connection
conn.Open cadenaCnn
Set rstArea = New ADODB.Recordset
Set rstArea = conn.Execute("Select * From TAreas")
y obtengo los que quiero pero necesito meterlo al Datacombo.. como??

Lo unico que te falta es definir que campo de tu Tabla quieres que aparesca en el combo y luego haces:
Set DataCombo1.RowSource=rstArea
DataCombo1.ListField="NombreTabla" ' Por decir que este sea uno de tus campos

Suerte

Gracias fabian pero mira lo intente y como me dijiste:
Set conn = New ADODB.Connection
conn.Open cadenaCnn
Set rstArea = New ADODB.Recordset
Set rstArea = conn.Execute("Select * From TAreas")
rstArea.Open "Select * From TAreas"
Set cmb_areas.RowSource = rstArea
cmb_areas.LisField = "Area"
conn.Close

y el error que me arroja es el siguiente:
METHOD OR DATA MEMBER NOT FOUND
que pasa... tengo algo mal???

Trata cambiando :
Set rstArea = conn.Execute("Select * From TAreas")
por:
rsArea.CursorLocation=adUserClient
rsArea.Open "Select * From TAreas",conn
Set cmb_areas.RowSource = rstArea
cmb_areas.LisField = "Area"

Hice lo que me dijiste y sigue igual, pero ahora el debug me sombrea donde dice .ListField = eso me lo sombrea.... a que se debera??? todo esto lo tengo en el evento Load de mi form... ok?