Type Mismatch But makes no sense - vba

Question

I am having a very strange Type Mismatch error and (to me at least) doesn't appear to be obvious.
I'm hoping a second set of eyes could help.
I'm getting a type mismatch where it's trying to set my Like "*"
I set Dim to a String and this field is all short text.
I've tried to get this two work two different ways but for some reason the code really doesn't like when I try to use Like "*" as a criteria.
The strange thing is if I use this in aa access query it works just fine.
Any help or push in the right direction would be appreciated.
I've tried it this way (preferred)
Private Sub AppendFilter_Change()
Dim UserF As String
Dim DateF As String
UserF = Me.UserFilterCombo
DateF = Me.AppendFilter
If UserF = "" Then
UserF = "Like "*"" '<---Type Mismatch??
Else
End If
Me.TasksLst.RowSource = "SELECT tblTasks.ID, tblTasks.Owner, tblTasks.[Task Name], tblTasks.Priority, tblTasks.Company, tblTasks.Status, tblTasks.Notes, tblTasks.DueDate, tblTasks.StartDate, tblTasks.DateCompleted, tblTasks.DateCreated, tblTasks.[Need Help], tblTasks.Assigned " _
& "FROM tblTasks " _
& "WHERE (((tblTasks.Owner)='" & UserF & "') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner)='" & UserF & "') AND ((tblTasks.Status)='Not Started') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner)='" & UserF & "') AND ((tblTasks.Status)='In Progress') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) " _
& "ORDER BY tblTasks.Owner, tblTasks.DueDate;"
Me.TasksLst.Requery
End Sub
And I've tried it this way (Not my favorite)
Private Sub AppendFilter_Change()
Dim UserF As String
Dim DateF As String
UserF = Me.UserFilterCombo.Value
DateF = Me.AppendFilter
If UserF = "" Then
Me.TasksLst.RowSource = "SELECT tblTasks.ID, tblTasks.Owner, tblTasks.[Task Name], tblTasks.Priority, tblTasks.Company, tblTasks.Status, tblTasks.Notes, tblTasks.DueDate, tblTasks.StartDate, tblTasks.DateCompleted, tblTasks.DateCreated, tblTasks.[Need Help], tblTasks.Assigned " _
& "FROM tblTasks " _
& "WHERE (((tblTasks.Owner) Like " * ") AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner) Like " * ") AND ((tblTasks.Status)='Not Started') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner) Like " * ") AND ((tblTasks.Status)='In Progress') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) " _
& "ORDER BY tblTasks.Owner, tblTasks.DueDate;"
Else
Me.TasksLst.RowSource = "SELECT tblTasks.ID, tblTasks.Owner, tblTasks.[Task Name], tblTasks.Priority, tblTasks.Company, tblTasks.Status, tblTasks.Notes, tblTasks.DueDate, tblTasks.StartDate, tblTasks.DateCompleted, tblTasks.DateCreated, tblTasks.[Need Help], tblTasks.Assigned " _
& "FROM tblTasks " _
& "WHERE (((tblTasks.Owner)='" & UserF & "') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner)='" & UserF & "') AND ((tblTasks.Status)='Not Started') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner)='" & UserF & "') AND ((tblTasks.Status)='In Progress') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) " _
& "ORDER BY tblTasks.Owner, tblTasks.DueDate;"
End If
Me.TasksLst.Requery
End Sub

Answer 1

I would have your logic so that the Where clause doesn't mention the user at all if the user hasn't specified a user (and same for date range - unless you want to put a default date range).
something like the below ... I haven't passed SQL statements to the rowsource, so I don't know how it uses the LIKE statement ... in SQL it would be single quote and % sign .... based on you using the *, this code uses single quote and star.
Private Sub AppendFilter_Change()
Dim UserF As String
Dim DateF As String
UserF = Me.UserFilterCombo
DateF = Me.AppendFilter
If UserF = "" Then
UserF = ""
Else
UserF = " AND (tblTasks.Owner) LIKE '*" & UserF & "*'"
End If
'repeat for DateF
Me.TasksLst.RowSource = "SELECT tblTasks.ID, tblTasks.Owner, tblTasks.[Task Name], tblTasks.Priority, tblTasks.Company, tblTasks.Status, tblTasks.Notes, tblTasks.DueDate, tblTasks.StartDate, tblTasks.DateCompleted, tblTasks.DateCreated, tblTasks.[Need Help], tblTasks.Assigned " _
& "FROM tblTasks " _
& "WHERE (( ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner)='" & UserF & "') AND ((tblTasks.Status)='Not Started') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) OR (((tblTasks.Owner)='" & UserF & "') AND ((tblTasks.Status)='In Progress') AND " & DateF & " AND ((tblTasks.[Recurring Event])=False)) " _
& UserF & DateF _
& " ORDER BY tblTasks.Owner, tblTasks.DueDate;"
Me.TasksLst.Requery
End Sub