If LincSQL = True Then
    If TypeOpen = 1 Then ' ôèëüòð ïî ïîëÿì âûáîðà ôèëüòðà
        ' здесь формирование строки для параметров
    End If

    If Len(strSQL) > 0 Then strSQL = Left(strSQL, Len(strSQL) - 2)

    rst.CursorLocation = adUseClient
    rst.Open "Exec CustomerAll_sub " & strSQL, MyConnect, adOpenKeyset, adLockOptimistic

    Set Me.Form.Recordset = rst
'    strSQL = "Execute 'CustomerAll_sub' " & strSQL
'    CurrentDb.QueryDefs("CustomerAll_sub").SQL = strSQL
Else
    i = i + 1
    Call LincSQL
    GoTo NewCtart
End If

Forms!CustomerAll.Form.Section(1).Visible = True ' false

?Forms!CustomerAll!CustomerAll_sub.sourceobject
CustomerAll_sub

Public MyConnect As ADODB.Connection

Public Function LincSQL() As Boolean
Dim strMy As DAO.Recordset

    On Error GoTo Err_LincSQL
    
Set strMy = CurrentDb.OpenRecordset("SELECT * FROM ServerLink", dbOpenDynaset)
If strMy.EOF Then
    MsgBox "Âíèìàíèå! Íåóñòðàíèìàÿ îøèáêà! Ïðèëîæåíèå áóäåò çàêðûòî. Ïîæàëóéñòà, îáðàòèòå âíèìàíèå íà êîä îøèáêè è ñîîáùèòå ðàçðàáîò÷èêó! ", , "Îøèáêà!"
    Call Outputs
Else
    Set MyConnect = New ADODB.Connection
    With MyConnect
      .Provider = "SQLOLEDB.1"
      .Properties("Data Source") = Nz(strMy!ServerName, "Igor")
      .Properties("Initial Catalog") = Nz(strMy!ServerDB, "BaseTV")
      .ConnectionTimeout = 200
      .Properties("Persist Security Info") = False
      .Properties("Integrated Security") = "SSPI"
      .Open
    End With
End If

LincSQL = True

    If Not strMy Is Nothing Then Set strMy = Nothing

Exit_LincSQL:
    Exit Function

Err_LincSQL:
    If Not strMy Is Nothing Then Set strMy = Nothing
    If Not MyConnect Is Nothing Then Set MyConnect = Nothing

    LincSQL = False

    MsgBox "Îøèáêà ïîäêëþ÷åíèÿ ê ÁÄ! " & vbNewLine & "Ïðîâåðüòå íàñòðîéêè ïîäêëþ÷åíèÿ!", vbCritical, "Îøèáêà!"
'    Call Outputs
    Resume Exit_LincSQL
    
End Function

Public Function MyWhere(TypeOpen As Long) As Long
'TypeOpen ïðèìåíåíèå/î÷èñòêà ôèëüòðîâ
' 0= î÷èñòêà; 1=ïðèìåíåíèå
Dim strSQL As String
Dim i As Long
Dim rst As New ADODB.Recordset

   On Error GoTo MyWhere_Error

NewCtart:
If LincSQL = True Then
    If TypeOpen = 1 Then ' ôèëüòð ïî ïîëÿì âûáîðà ôèëüòðà
        If Me.Parent.Customer_fl <> 0 Then strSQL = "@Customer_Search='" & Me.Parent.Customer_Search & "', "
        If Me.Parent.Adress_fl <> 0 Then strSQL = strSQL & "@Adress_Search='" & Me.Parent.Adress_Search & "', "
        If Me.Parent.Telephone_fl <> 0 Then strSQL = strSQL & "@Telephone_Search='" & Me.Parent.Telephone_Search & "', "
        If Me.Parent.AccountCustomer_fl <> 0 Then strSQL = strSQL & "@AccountCustomer_Search='" & Me.Parent.AccountCustomer_Search & "', "
    End If

    If Len(strSQL) > 0 Then strSQL = Left(strSQL, Len(strSQL) - 2)

    rst.CursorLocation = adUseClient
    rst.Open "Exec CustomerAll_sub " & strSQL, MyConnect, adOpenKeyset, adLockOptimistic

    Set Me.Form.Recordset = rst

Else
    If i < 4 Then
        i = i + 1
        Call LincSQL
        GoTo NewCtart
    Else
    MsgBox "&#205;&#229; &#243;&#228;&#224;&#235;&#238;&#241;&#252; &#239;&#238;&#228;&#234;&#235;&#254;&#247;&#229;&#237;&#232;&#229; &#234; &#193;&#196;!", vbInformation, "&#206;&#248;&#232;&#225;&#234;&#224; &#239;&#238;&#228;&#234;&#235;&#254;&#247;&#229;&#237;&#232;&#255;!"
    End If
End If


'    If Not strMy Is Nothing Then Set strMy = Nothing
'    If Not rst Is Nothing Then Set rst = Nothing

   On Error GoTo 0
   Exit Function

MyWhere_Error:
If Not rst Is Nothing Then Set rst = Nothing
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure MyWhere of VBA Document Form_CustomerAll"

End Function

Public Function FilterYesNo(Optional TypeWork As Long = 0)
'TypeWork -óñòàíîâêà ñîñòîÿíèÿ àêòèâíîé ôîðìû
'0=èçìåíèëñÿ ôîêóñ; 1=èçìåíèëîñü ñîñòîÿíèå

   On Error GoTo FilterYesNo_Error

NameActFrm = MyScreenActFrm(1)
Set MyActiveForm = Forms(NameActFrm)

With MyActiveForm.Form
    If !FormHeaderYes = False Then
        If TypeWork = 1 Then
'            .Form.Section(1).Visible = True
            !FormHeaderYes = True
        ElseIf TypeWork = 0 Then
'            .Form.Section(1).Visible = False
        End If
    Else
        If TypeWork = 1 Then
'            .Form.Section(1).Visible = False
            !FormHeaderYes = False
        ElseIf TypeWork = 0 Then
'            .Form.Section(1).Visible = True
        End If
    End If
End With
'Forms!CustomerAll!CustomerAll_sub.Form.MyWhere (0)
If Not MyActiveForm Is Nothing Then Set MyActiveForm = Nothing

    Const constr$ = "Driver={SQL Server};Server=WAREZ-A1B4AD0C5\SQLEXPRESS;" & _
                    "Database=northwind;" 'UID=sa;PWD=0;"

i = Me.Form.Section(1).Visible
If i = False Then
    Me.Form.Section(1).Visible = True
Else
    Me.Form.Section(1).Visible = False
End If

    Set MyConnect = New ADODB.Connection
    With MyConnect
      .Provider = "SQLOLEDB.1"
      .Properties("Data Source") = Nz(strMy!ServerName, "Igor")
      .Properties("Initial Catalog") = Nz(strMy!ServerDB, "BaseTV")
'      .Properties("User Id") = "user"
'      .Properties("Password") = "welcome"
      .ConnectionTimeout = 200
      .Properties("Persist Security Info") = False
      .Properties("Integrated Security") = "SSPI"
      .Open
    End With

If con.Execute(s)(0) = 0 Then