RISOLTOO!!

posto il codice:
codice:
Sub salva()
        Dim scrivi As New System.IO.StreamWriter("C:\Users\win\Desktop\asdsa1.csv")
        Dim righe As Integer
        Dim colonne As Integer
        Dim testo As String

        For righe = 0 To datTabellaF.RowCount - 2
            testo = ""
            For colonne = 0 To 1
                If colonne <> 1 Then
                    testo = testo + datTabellaF.Rows(righe).Cells(colonne).Value + ","
                Else
                    testo = testo + datTabellaF.Rows(righe).Cells(colonne).Value
                End If
            Next
            scrivi.WriteLine(testo)
        Next
        scrivi.Close()
    End Sub
ciaoo