Visual Basic - Consultar una dbf desde vb6

Dim cn As New ADODB.Connection

Dim rs As ADODB.Recordset

cn.Open ("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=F:\ADMI;")

Set rs = cn.Execute("select * from perso where ced = '" & CED_FOX & "'")      --- aqui esta el error  la tabla externa no tiene el formato esperado.

If Not rs.EOF Then

    rs.MoveFirst

    Me.txtnombre.Text = rs.Fields("pnom") + rs.Fields("snom") + rs.Fields("apat") + rs.Fields("amat")

    Me.txtsexo.Text = .Fields("sex")

    Me.txtedad.Text = .Fields("Fecn")

Else

    MsgBox "No hay Datos para Mostrar", vbOKOnly, "DATOS"

End If

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\myvfpdbfolder;