Dim cnn As ADODB.Connection
    Dim rst As ADODB.recordset
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlRng As Excel.Range
    Dim intI As Integer
    
    Set cnn = New ADODB.Connection
    Set cnn = CurrentProject.Connection
    
    Set rst = New ADODB.recordset
    rst.Open "tblContracts", cnn, adOpenKeyset, _
      adLockOptimistic, adCmdTable
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Open("D:\1\Book1.xls")
    Set xlRng = xlWb.Worksheets("Лист1").Range("A1:B8")
    
    For intI =  3  To xlRng.Rows.Count
        rst.AddNew
        rst.Fields("Тип контракта") = _
          CStr(xlWb.Worksheets("Лист1").Range("A1"))
        rst.Fields("Дата") = _
          CDate(xlWb.Worksheets("Лист1").Range("A" & intI))
        rst.Fields("PxLast") = _
          CLng(xlWb.Worksheets("Лист1").Range("B" & intI))
        rst.Update
    Next

    rst.Close
    cnn.Close
    xlWb.Close
    xlApp.Quit
    
    Set rst = Nothing
    Set cnn = Nothing
    Set xlApp = Nothing