While Not rst.EOF
                oDoc.Tables( 1 ).Rows.Add
                lcl_Code = rst!code
                j = j +  1 
                If rst!sum =  0  Then
                        Tbl.Cell(j,  1 ).range.Text = rst!name
                    Else
                        Tbl.Cell(j,  1 ).range.Text = rst!name & Chr( 13 ) & _
                                            "(" & Format(rst!sum, "#0.00") & ")"
                End If
                
                While (Not rst.EOF) And (rst!code = lcl_Code)
                        Select Case rst!cur_type
                            Case "1"
                                Tbl.Cell(j,  2 ).range.InsertAfter rst!rate
                            Case "2"
                                Tbl.Cell(j,  4 ).range.InsertAfter rst!rate
                            Case "3"
                                Tbl.Cell(j,  3 ).range.InsertAfter rst!rate
                        End Select
                                    
                    rst.MoveNext
                Wend