[AccessD] Filtering a screen

Good Morning,
 
I am filtering the records on the screen with the following code:
 
If Me.cboCustomerHead.Column(0) = "" Then
        Me.FilterOn = False
    Else
        Me.Filter = "tblCustomerToOwner.Customer = '" & Me.cboCustomerHead.Column(0) & "'"
        Me.FilterOn = True
    End If
 
This works great but sometimes the item in the cboCustomerHead has a single quote in which then causes an erorr.  Does anyone know how I can filter using an item with a single quote?
 
Thanks!
 
Dale