This might be easy . A DB Question

[PRIVATE1]

How are you today ? I'm thinking I have a problem that I can't fix involving a DB . If I querry the base for a name and it does't find it , the data base seems empty after the querry returns . If it finds the entry the only thing in the data control seems to be the found querry . Please read the Following code and see notes at the bottom . Thanks for having a look .





This is what I'm Using

Public Function IsInDB(Nicktofind As String) As Boolean
   
   
   On Error GoTo OOPS
    Dim My_Query As String

    My_Query = "Nick" & " " & Cbo_Operator & " '" & Nicktofind & "'"
    Data1.RecordSource = "SELECT * FROM Users WHERE " & My_Query
 
    Data1.Refresh

    Data1.Recordset.MoveLast: Data1.Recordset.MoveFirst
    
    IsInDB = Not (Data1.Recordset.RecordCount = 0)

Exit Function

OOPS:
MsgBox Error

End Function

In this line below
does it load my database with only those items that where selected in the search ?
If it does , how do I get it back to the whole database again ?

Data1.RecordSource = "SELECT * FROM Users WHERE " & My_Query