I am trying to do a simple lookup to see if a value exist before saving.  When I call the Load() method it returns true.  Also the next available primary key is returned so I am unable to find out if the record is actually there or not.  This seems like the approach but I am not getting the results as I expected.

    Private Function GetTrayId(ByVal trayNmber As Integer) As Integer
        Dim sampleTray As New SampleTray()
        sampleTray.Query.Select(sampleTray.Query.SampleTrayId)
        sampleTray.Query.Where(sampleTray.Query.TrayNumber.Equal(trayNmber))
        If (sampleTray.Query.Load()) Then
            GetTrayId = sampleTray.SampleTrayId
        Else
            GetTrayId = AddSampleTray(trayNmber)
        End If
    End Function

Thanks Team 

John

There is nothing wrong with the code. If Query.Load() is returning true then it found the record. Also, I would improve your query like this:

OLD: sampleTray.Query.Where(sampleTray.Query.TrayNumber.Equal(trayNmber))

NEW: sampleTray.Query.Where(sampleTray.Query.TrayNumber == trayNmber) 

We support all of the natural language operators and it makes your query much easier to read.

Why aren't you using an Identity column for this? I'm not sure what the issue really is or why you say "you are not getting the results as you expected" ?

My Bad, after pounding my head for an hour and a half, I thought to look at the connection string and it was changed to a different database.  Now that it is pointing to the correct db, the results are as expected.  Sorry for the unnecessary post

 John