нужно сделать импорт значений из Excel в базу Access

Sub Add_()

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\docum_db.mdb;"
    

    n = 15

    For i = 3 To n
    id_reestr_ = Me.Cells(i, 2).Value
    podr_ = Me.Cells(i, 3).Value
    sotr_ = Me.Cells(i, 4).Value
    doc_type_ = Me.Cells(i, 5).Value
    contr_ = Me.Cells(i, 7).Value
    number_doc_ = Me.Cells(i, 8).Value
    date_doc_ = Me.Cells(i, 9).Value
    summ_doc_ = Me.Cells(i, 10).Value
    accept_ = Me.Cells(i, 11).Value
zamech_text_ = Me.Cells(i, 12).Value
date_accept_ = Me.Cells(i, 13).Value
user_accept_ = Me.Cells(i, 14).Value
id_reestr_vozvr_ = Me.Cells(i, 15).Value
date_vozvr_ = Me.Cells(i, 16).Value
user_vozvr_ = Me.Cells(i, 17).Value
user_tn_vozvr_ = Me.Cells(i, 18).Value
notes_ = Me.Cells(i, 19).Value
  Cuser_ = Me.Cells(i, 21).Value
  Luser_ = Me.Cells(i, 23).Value
monopol_ = Me.Cells(i, 25).Value
ext_int_ = Me.Cells(i, 26).Value
doc_copy_ = Me.Cells(i, 31).Value
qnt_doc_ = Me.Cells(i, 39).Value
qnt_doc_cfm_ = Me.Cells(i, 40).Value
qnt_pages_ = Me.Cells(i, 41).Value
    
    Set rst = cnn.Execute("insert into reestr_doc ( id_reestr, podr,sotr,doc_type,summ_doc,Cuser,Luser) values ( id_reestr_ , podr_ ,sotr_ , doc_type_ , summ_doc_, Cuser_, Luser_ )")
    Next
    
  
    
    'Close the connection
    cnn.Close



 

End Sub

если занашу данные явными значениями, все прекрасно заноситься, а вот через переменные выходит ошибка (См.рис)

значения в переменные передаются, они получаются не пустые

http://www.sql.ru/forum/1072184/oshibka-importa