Dont mind me off in my own little dream world!!

Here we go!! Sorry

Private Sub Command2_Click()
Dim res1 As String
Dim res2 As String
Dim res3 As String

Set rs = db.OpenRecordset("SELECT * FROM mail")
NameQuery = InputBox("Enter A Date To Search For", "Date Query")


rs.MoveFirst
Do Until rs.EOF

If rs.Fields("Date") Like "*" & LCase(NameQuery) & "*" Then
res1 = rs.Fields("Date")
res2 = rs.Fields("Addressee")
res3 = rs.Fields("Description")

MsgBox res1
MsgBox res2
MsgBox res3



Exit Sub
Else
rs.MoveNext
End If


Loop
End Sub