Открыть вторую форму с данными, введенными в первой

Private Sub изменить3_Click()
On Error GoTo Err_Изменить3_Click
 
 
If Me.БуфПодч.Form.CurrentRecord > 0 Then
   
        Dim ntt As Long
 
        ntt = Me.БуфеПодч.Form.NTTN
   
    DoCmd.OpenForm "NEW_FORM"
'    Forms("NEW_FORM").SetEditMode2 Me.БуфПодч.Form!NTTN
   Forms("NEW_FORM").SetEditMode2 ntt
    
Else
    MsgBox "Ошибка!", vbCritical
End If
    
Exit_Изменить3_Click:
    Exit Sub
 
Err_Изменить3_Click:
    MsgBox Err.Description
    Resume Exit_Изменить3_Click
    
End Sub

Public Sub SetEditMode2(ntt As Long)
On Error GoTo HandleErrors
 
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.Open "select " + _
                "  pt.nttn " + _
                " ,pt.dat_p " + _
                " ,pt.cod_kli " + _
                " ,pt.sum_pr " + _
                " ,pt.vid " + _
                " ,pt.nds " + _
                " ,pt.rash_nttn " + _
                " ,pt.Nsek " + _
                " ,pt.rash_nttn " + _
                " ,ISNULL(kl.na_kli,'') as na_kli " + _
    " from prih_t pt " + _
    " left outer join dbo.klient kl on pt.cod_kli=kl.cod_kli " + _
    " where pt.nttn = " & CStr(ntt), Application.CurrentProject.Connection
    
 
Me.edtClientId = rst!COD_KLI
Me.edtClient = rst!NA_KLI
Me.DAT_R = rst!DAT_P
Me.R_KLI = rst!NA_KLI
Me.SUM_V = rst!SUM_PR
Me.ПолеВидПрихода = Forms("БуферПриход").[БуферПриходПодч]!NA
'Me.r_vid = rst!VidRash
'Me.R_NSEK = rst!fNSEK
'Me.RCOD_KLI = rst!COD_KLI
 
Me.CUST_N = rst!NSek
      
    rst.Close
 
HandleExit:
Exit Sub
HandleErrors:
MsgBox "SetEditMode2 : " & Err.Description, vbCritical
End Sub