Prima di tutto grazie a tutti,
diciamo che con ALKA ne avevamo già discusso , ed è proprio il suo suggerimento che ho messo in pratica:

codice:
       Dim sw As StreamWriter = New StreamWriter(db1)
        sw.WriteLine("""Giorno" & """;""" & "Causale" & """;""" & "Uscita" & """;""" & "Entrata" & """;""" & "Totale""")
        Dim testo, tabella As String
        For i As Integer = 0 To dataSet.Tables(0).Rows.Count - 1
            testo = """"
            For a As Integer = 0 To 4
                testo = testo & dataSet.Tables(0).Rows(i).Item(a) & """;"""
            Next
            tabella = testo.Substring(0, testo.Length - 2) 
            Application.DoEvents()
            sw.WriteLine(tabella)
        Next
        sw.Close()
        MsgBox("Esportazione conclusa", MsgBoxStyle.Information, "Ore")