Visual Basic - Problema con DataCombo

Hola foro.. tengo ya dos dias queriendo sacar este problema y nomas no... no me enlista los datos el data combo.. tengo lo siguiente..

Private Sub Form_Load()
On Error GoTo interrupcion
'Open connection.
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

al parecer no se deja... no quiere ya le intente de mil formas y nomas no.. tal vez es alguna propiedad que desconozco, no se.. spero puedan ayudarme a resolver esto...

Te enviado mi solucion por correo

Tengo filtro en mi correo.. y no me llego tu respuesta.. podrias volver a mandarlo.. ya lo modifique... gracias.....