Private Sub btnUploadData_Click()
On Error GoTo Err_btnUploadData_Click
 
    Dim fd As FileDialog
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsProj As ADODB.Recordset
    Dim path As String
'    Dim counter As Long
    Dim strSQL As String
    Dim strFile As String
    Dim sizeRs As Long
    Dim blnInTrans As Boolean
    Dim frmAddInfo As Form_фрмВставкаДанных

Option Explicit
Sub send_message()
    Dim o_Mess As Object, v_Conf As String
    Set o_Mess = CreateObject("CDO.Message")
    v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
    With o_Mess
        .To = "АДРЕС@КУДА.ОТПРАВЛЯЕШЬ"
        .From = "АДРЕС@ОТКУДА.ОТПРАВЛЯЕШЬ"