Импорт из .DBF - VB

Run-  
    Overflow 

cmdRazbor_Click()
 cnn   ADODB.Connection
     rst   ADODB.Recordset
     ert  
     Str  
     i  
     code  
     Sum  , Sum1  
     Rep  
    
    dlg1.Filter = 
    dlg1.ShowSave
    sTemp = dlg1.FileName
    
    cnn.  _
      & 
    
    rst.  & sTemp & , cnn
    i = 
    
       rst.EOF
              
        Str = rst.Fields() &  & rst.Fields() &  & rst.Fields() _
        &  & rst.Fields() &  & rst.Fields() &  & rst.Fields()
                
        i = i + 
    
        Nod =  &  &  & Piece(Str, , ) &  &  &  & i &  & 
        sod = Piece(Str, , ) &  & _
        Piece(Str, , ) &  & Piece(Str, , ) &  & _
        Piece(Str, , ) &  & Piece(Str, , ) &  & _
        Piece(Str, , )
        
        m. , Nod, sod
        rst.MoveNext

rst.
cnn.
 rst = 
 cnn =