Help with Run-time error '3077' Syntax error (missing operator) in expression

[Justin R]

Hey I am really stuck and can't figure out what is wrong here is the code line and surrounding code, if anyone can help i would appreciate it. Thanks
This first line is the line that has a problem and the following after the big gap is the whole thing.

MySet.FindFirst Criteria ' Locate first occurrence.

Option Compare Database   'Use database order for string comparisons
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' Me![Updated] = Now
End Sub
 
Private Sub SelectCompany_AfterUpdate()
    Dim Criteria As String, MyDB As Database, MySet As Recordset
 
    Criteria = "[Company] = " & "'" & Forms![Customers]![SelectCompany] & "'"
    Set MyDB = DBEngine.Workspaces(0).Databases(0)
    Set MySet = Forms![Customers].RecordsetClone
    MySet.FindFirst Criteria    ' Locate first occurrence. 
 
    Me.Bookmark = MySet.Bookmark
 
    Me![Company].SetFocus
    Me![SelectCompany] = Null
 
End Sub

[missinglinq]

While single lines of code don't really require the use of Code Tags, all code posted consisting of 2 or more lines does.

This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.

For VBA code the tag is Code=vb (no spaces) with square brackets surrounding it.

Since you're new to the forum, please take the time to read the Posting Guidelines:

http://www.thescripts.com/forum/thread559246.html

Please use [code] tags in future.

Thank you and Welcome to TheScripts!

Linq ;0)>