查询时出现“无Gosub返回”的提示是怎么回事？

我有个查询窗体，数据来源是传递查询，点查询时出现“无Gosub返回”的错误提示，但有时又正常，不知道怎么回事，麻烦各位老师帮忙看一下，代码如下：

其中“基本信息传递查询”是已存在的一个传递查询 

Private Sub search_Click()
    Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.text1) Then
      strWhere = strWhere & "编号 like '" & Me.text1 & "%' AND "
    End If
    If Not IsNull(Me.text2) Then
      strWhere = strWhere & "姓名 = '" & Me.text2 & "' AND "
    End If
    If Len(strWhere) > 0 Then
      strWhere = " Where " & Left(strWhere, Len(strWhere) - 5)
    End If
 
    Dim mydb As Database 
    Dim myquery As QueryDef 
    Set mydb = CurrentDb()  
    Set myquery = CurrentDb.QueryDefs("基本信息传递查询") 
    myquery.SQL = "select * from 基本信息查询" & strWhere 
    Me.基本信息子窗体.Form.RecordSource = "基本信息传递查询"
End Sub