Code:
Dim strSql1 As String
    strSql1 = "SELECT *, LName & ', ' & FName as FullName FROM Phone order by lname;"
    datName.RecordSource = strSql1
    datName.Refresh
'strFindme = whatever you look for 
    strFindMe = DBCombo1.Text
strFindMeName = the fieldname to seache in and what to find
    strFindMeName = "fullname = '" & strFindMe & "'"
'
    datName.Recordset.FindFirst strFindMeName
FindLast uses the same stuff...

datName.Recordset.FindLast strFindMeName