Visual Basic - error al traer datos de un campo

hola, estoy tratando de hacer una conexion a un dbf para extraer datos de ciertos campos estoy usando este code

Set cn = New ADODB.Connection
cn.Open "driver={microsoft visual foxpro driver}; sourcetype=DBF; sourcedb=D:X estDATA; exclusive=No; Mode=read;"
With Adodc1
.ConnectionString = cn
.RecordSource = "SELECT * FROM cel_data.dbf WHERE folio LIKE '" & Text1.Text & "'"""
.Refresh
End With
Text2.Text = Adodc1.Recordset("nombre") <------- aki me marca error

pero me marc error de "object variable or with block variable not set" que podra ser? gracias y besos