Visual Basic - Foro saquenme de este problema

'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 Area From TAreas")
Set cmb_areas.RowSource = rstArea
cmb_areas.LisField = "Area"
conn.Close
Exit Sub

al abrir el formulario me marca este error: METHOD OR DATA MEMBER NO FOUND
QUE ES??? QUE TENGO QUE HACER???

ya hiciste alguna referencia a los controles ADO

Claro que si... pero no function.. no se que sea... tengo lo siguiente y me marca un error...
Set conn = New ADODB.Connection
conn.Open cadenaCnn
Set rstArea = New ADODB.Recordset
Set rstArea = conn.Execute("Select * From TAreas")
rsArea.CursorLocation = adUserClient
rsArea.Open "Select * From TAreas", conn
Set cmb_areas.RowSource = rstArea
cmb_areas.LisField = "Area"
conn.Close

Exit Sub

si este codigo lo copiaste tal cual desde el editor de VB puede que ahi este tu error.
espero te sirva de ayuda
rstArea
rsArea
creo que alguno de los dos nombres esta mal escritos

Esta linea ya no deberia ir:

Set rstArea = conn.Execute("Select * From TAreas")

si lo eliminas debe funcionarte , a mi me funciona