Sql select en Access mediante VBA

Como estas mi pregunta es la siguiente resulta
que tengo un formulario en Access con un texto y un botón,
lo que deseo hacer es realizar una consulta dependiendo
del registro que un usuario digite en el texto del mismo
formulario... He realzado esto mediante el siguiente código
On Error GoTo Err_EjecutarConsulta_Click
Dim consulta As String
Dim stDocName As String
DoCmd.RunSQL "Select* from Encuestados"
Exit_EjecutarConsulta_Click:
Exit Sub
Err_EjecutarConsulta_Click:
MsgBox Err.Description
Resume Exit_EjecutarConsulta_Click
Pero el compilador VBA de Access me dice que "La acción Ejecutar SQL
requiere como argumento una instrucción SQL", ademas veo que en la
Web me dicen que la función DcCmd. Runsql no ejecuta consultas
DDL como el SELECT sino DML como (Insert... Etc etc).
Por otro lado he tratado de realizar mediante el codigo:
Sub SQLstament()
Dim strSQL As String
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
strSQL = "SELECT * FROM Encuestados"
Set rs = DB.OpenRecordset(strSQL, dbOpenDynaset)
VariableName = rs!FieldName
Set rs = Nothing
Set DB = Nothing
End Sub
Pero me dice "No se encontró el objeto en esta coleecion
y me subraya la linea de código VariableName= rs! Fieldname"