Help! What am I doing wrong ?

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)

Don't get hung up on using data controls, you can solve the problem with the answer provided in the topic labelled:

Topic: How to do this using SQL ? Please help!!