Visual Basic - Este es elproblema...

Quiero desplegar los datos en un datacombo..pero me sale un error en el listfiel.. de metodo no funciona... que pasa ahi.. algo tengo mal??
Private Sub Form_Load()
On Error GoTo interrupcion
cadenaCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=RHE;Data Source=10.6.1.1"
Set conn = New ADODB.Connection
conn.Open cadenaCnn
Set rstArea = New ADODB.Recordset
Set rstArea = conn.Execute("Select * From TAreas")
Set cmb_areas.RowSource = rstArea
cmb_areas.ListField = "Area"
conn.Close
Exit Sub
On Error GoTo 0
interrupcion:
MsgBox Err.Description, vbCritical, "Atención"
End Sub

si le quitas la linea:
Set rstArea = conn.Execute("Select * From TAreas")
quedara igual a lo que yo hago para llenar un DataCombo sin ningun problema

Pues no me llena nada.. el control no tiene que tener alguna propiedad activada o algo asi.. siento quelo que me falta es algo sencillo y nomas no se que sea.....