simple seek

[alarants]

I am moving on nonfamiliar ground and have generated some mistakes. For pro-s it is elementary, of course, but please share your experience.

Public Function Name()
Dim T As Recordset
Set T = CurrentDb.OpenRecordset("Tablename", dbOpenDynaset)
T.FindFirst "Columnname""Criteria"""
End Function

It is done exactly as in http://allenbrowne.com/ser-29.html but gives "Syntax error in expression". Have tried everything imaginable also Seek but nothing works. Looked over libraries but still nothing.

 

[JPaulo]

try;

Public Function Name()
Dim A As DAO.Database
Dim T As DAO.Recordset
Set A = CurrentDb
Set T = A.OpenRecordset("tblExemplo", dbOpenDynaset)
T.FindFirst "[Columnname] = '" & Criteria & "'"
End Function

 

[alarants]

Thanks, it works.

 

[JPaulo]

Thanks, for you replay.