Run-time error '6'
    Overflow 

Private Sub cmdRazbor_Click()
Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim ert As String
    Dim Str As String
    Dim i As Integer
    Dim code As String
    Dim Sum As String, Sum1 As String
    Dim Rep As String
    
    dlg1.Filter = "All Files (*.*)|*.*"
    dlg1.ShowSave
    sTemp = dlg1.FileName
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;" _
      & "Extended Properties=dBASE IV;"
    
    rst.Open "SELECT * FROM " & sTemp & "", cnn
    i =  0 
    
     Do Until rst.EOF
              
        Str = rst.Fields( 0 ) & "/" & rst.Fields( 1 ) & "/" & rst.Fields( 2 ) _
        & "/" & rst.Fields( 3 ) & "/" & rst.Fields( 4 ) & "/" & rst.Fields( 5 )
                
        i = i +  1 
    
        Nod = "^Razbor" & "(" & """" & Piece(Str, "/",  1 ) & """" & "," & """" & i & """" & ")"
        sod = Piece(Str, "/",  1 ) & "/" & _
        Piece(Str, "/",  2 ) & "/" & Piece(Str, "/",  3 ) & "/" & _
        Piece(Str, "/",  4 ) & "/" & Piece(Str, "/",  5 ) & "/" & _
        Piece(Str, "/",  6 )
        
        m.Do "Sav^Desc", Nod, sod
        rst.MoveNext
   Loop
        

rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing

End Sub

Dim i As Long