"INSERT INTO tempvygr ( codever, prod, qt, codm1, tp, pth )" _
                & " SELECT MAIN1_1.codever, MAIN1_1.prod, getqbp(MAIN1_1.pth), MAIN1_1.code, 1 AS Âûðàæåíèå1, MAIN1_1.pth " _
                & " FROM MAIN INNER JOIN (main1 INNER JOIN MAIN1 AS MAIN1_1 ON main1.code = MAIN1_1.OWN) ON MAIN.CODE = MAIN1_1.coded " _
                & " WHERE (((MAIN1_1.prod)=True) AND ((MAIN.MARKA) Not Like '*erp*') AND ((Exists (SELECT MAIN1.code FROM MAIN1 where main1.own=main1_1.code;))=True) AND ((MAIN1_1.pth) Like '*" & ptcodm1 & "')) " _
                & " ORDER BY MAIN.MARKA; "

If isop = True Then
    strSQL = "*********;"
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.LOCKTYPE = adLockBatchOptimistic
    rst.CursorType = adOpenStatic
    Set rst.ActiveConnection = CurrentProject.Connection
    rst.Open strSQL, Options:=adCmdText
    Set rst.ActiveConnection = Nothing
    Set frmCurrent = New Form_tabl
    Set frmCurrent.Recordset = rst
    frmCurrent.Visible = True
    frmCurrent.Caption = Replace(Replace(ctl.Column(1, i), "ÀÁÂÊ.", ""), ".000.000", "")
    m_Forms.add frmCurrent
    
Else
   DoCmd.OpenForm "tabl"
   Forms!tabl.Caption = Replace(Replace(ctl.Column(1, i), "ÀÁÂÊ.", ""), ".000.000", "")
End If
  DoCmd.Close acForm, "rab"
End Sub