如何将链接表改为传递查询呢？

我有一个查询窗体，数据来源是用ODBC链接到SQL Server下的一个视图，由于数据量比较大，查询有点慢，在网上搜索了解到用传递查询可以加快执行效率，可惜我不会修改VBA，求各位老师帮忙修改一下查询事件代码，谢谢。

我目前的查询代码：

Private Sub search_Click()
    On Error GoTo Err_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 & "([姓名] like '" & Me.text2 & "*') AND "
    End If
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
    Me.基本信息子窗体.Form.RecordSource = "select * from 基本信息 " & IIf(Len(strWhere) > 0, " where " & strWhere, "")
    
Exit_search_Click:
    Exit Sub

Err_search_Click:
    MsgBox Err.Description
    Resume Exit_search_Click
End Sub

附上我的示例文件，我将链接表换成了本地表，方便查看。

点击下载此附件