Fix for VBC err Caompile Error: Label Not Defined

[dog]

VBC:

Private Function BuildFilter() As Variant
Dim varWhere As Variant
Dim tmp As String
tmp = """"

Const conJetDate = "\#dd\/mm\/yyyy\#"

varWhere = Null

If Me.aMemName > "" Then
varWhere = varWhere & "[Mem_FN] like " & tmp & Me.aMemName & tmp & " AND "
End If

BuildFilter = varWhere
End Function


Private Sub cmdSearch_Click()
On erorr GoTo errr
Me.Members_Table_subform.Form.RecordSource = " SELECT * FROM Members_Table " & BuildFilter
Me.Members_Table_subform.Requery


End Sub


errr:
MsgBox Err.Description
Exit Sub

I need a fix for this.

[dog]

I found a fix but got a run-time error this time.

Run-time error '3131':
Syntax error in FROM clause

Private Sub SearchV_Click()
On erorr GoTo errr
Me.Members_subform.Form.RecordSource = "SELECT * FROM [Members] " & BuildFilter
Me.Members_subform.Requery
errr:
MsgBox Err.Description
Exit Sub
End Sub

[pbaldy]

You might use this technique to see the finished SQL:

http://www.baldyweb.com/ImmediateWindow.htm

You are missing the keyword WHERE and leaving the " AND " at the end.

[JoeyB]

Edit: nevermind

[dog]

You might use this technique to see the finished SQL:

http://www.baldyweb.com/ImmediateWindow.htm

You are missing the keyword WHERE and leaving the " AND " at the end.

I'm new to Visual Basics and it's fair to say that I don't know much about the language.
I don't know how to fix it even after studying the link very well.
So I'd like to post the fixed CODE. Please.