Private Sub Command2_Click()


Dim strSQL As String
strSQL = "SELECT * FROM Customer " & _
"WHERE (HomePhone = """ & varHomePhone & """);"
Me.Data1.RecordSource = strSQL
Me.Data1.Refresh
If Me.Data1.EOFAction And Me.Data1.BOFAction Then
AddCust.Show vbModal
Else

End If
End Sub

I want this code to show a form if ther are no records in this database.
Any help would be appreciated .

Thanks Paul (Newbie)