Need help with a wildcard search

[ipforlife]

Hello,

I am a newbie to this but I need help programming my search to use wildcard in all fields. What I have in my VB is this:

Private Sub Form_Load()
LastName.SetFocus
LastName = -1
frmSearchCriteriaSub.Requery
LastName = Null
LastName.SetFocus
End Sub

Private Sub Form_Timer()
Me.Caption = " Today is: " & Format$(Now(), "DDDD, MMMM d, yyyy h:nn:ss AMPM")
End Sub

Private Sub cmdAdd_Click()
DoCmd.OpenForm "Contacts"
Form_Contacts.Caption = "Sales Contacts For Rivage"
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub cmdSearch_Click()
On Error Resume Next

Dim sSql As String
Dim sCriteria As String
sCriteria = "WHERE 1=1 "

'This code is for a Like search where can enter part of a string
'The source for this code can either be from a table or query
If Me![FirstName] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.FirstName like """ & FirstName & "*"""
End If

If Me![LastName] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.LastName Like """ & LastName & "*"""
End If

If Me![CompanyName] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.CompanyName = """ & CompanyName & "*"""
End If

If Me![Address] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.Address = """ & Address & "*"""
End If

If Me![StateOrProvince] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.StateorProvince = """ & StateOrProvince & "*"""
End If

If Me![Country] <> "" Then
sCriteria = sCriteria & " AND qrySearchCriteriaSub.Country like """ & Country & "*"""
End If

If Nz(DCount("*", "qrySearchCriteriaSub", Right(sCriteria, Len(sCriteria) - 14)), 0) > 0 Then
sSql = "SELECT DISTINCT [ContactID],[FirstName],[LastName],[CompanyName],[Address],[StateorProvince],[Country] from qrySearchCriteriaSub " & sCriteria
Forms![frmSearchCriteriaMain]![frmSearchCriteriaSub].Form.RecordSource = sSql
Forms![frmSearchCriteriaMain]![frmSearchCriteriaSub].Form.Requery
Else
MsgBox "The search failed find any records" & vbCr & vbCr & _
"that matches your search criteria?", vbOKOnly + vbQuestion, "Search Record"
End If
End Sub

Private Sub cmdClear_Click()
Call subClearFields
End Sub

Private Sub subClearFields()

FirstName = Null
LastName = Null
Address = Null
StateOrProvince = Null
Country = Null

End Sub and my query criteria is this

Like "*" & [Forms]![frmSearchCriteriaMain].[LastName] & "*" and so on

If anyone can help it would be great. It is probably something simple.