[VB.NET] Formattazione di valori in DataGridView

[Neptune]

Salve a tutti,
io ho un DataGridView caricato via codice, e non tramite le maschere, ed il codice è il seguente:

Dim connessione As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db1.mdb")
        connessione.Open()
        Dim dt As New DataTable

        Dim Data1 As Date
        Dim Data2 As Date

        Data1 = TextBox1.Text
        Data2 = TextBox3.Text

        Dim selezione As String
        Dim Dr As OleDb.OleDbDataReader
        selezione = "SELECT Azienda.Nominativo AS Nominativo, Contratto.Tipologia As Tipologia, Contratto.DInizio As Data_Inizio, Contratto.DFine As Data_Fine, Contratto.Attività As Attività, Contratto.Importo As Importo FROM Contratto, Azienda WHERE (Azienda.IDAzienda = Contratto.IDAzienda) AND (Contratto.DInizio BETWEEN #" & Format(Data1, "MM/dd/yyyy") & "# AND #" & Format(Data2, "MM/dd/yyyyy") & "#)"
        Dim esegui As New OleDb.OleDbCommand(selezione, connessione)
        Dr = esegui.ExecuteReader
        dt.Load(Dr)
        DataGridView3.DataSource = dt
        'DataGridView3.DataBind()
        connessione.Close()

Cliccando, tramite maschera, sul mio DataGridView mi da la possibilità di cambiare la formattazione globale, ma io vorrei poter agire sulle singole colonne per poter mettere alla colonna importo il la formatazione in valuta (euro).

Come posso fare?

Vi ringrazio mille in anticipo,
Neptune.

[enricofoti]

Ciao Neptune,
non sono un'espertissimo di VB.net, ma io formatto il datagridview in questo modo (VS 2005):

Private Sub FormattaDGV()
With Me.DataGridView
.Columns.Clear()
.DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
.RowHeadersVisible = False
End With

Dim col0 As New DataGridViewTextBoxColumn()
With col0
.HeaderText = "Prezzo"
.DataPropertyName = "Prezzo"
.Name = "Prezzo"
.Width = 100
.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
.CellTemplate.Style.Alignment = DataGridViewContentAlignment.MiddleRight
.CellTemplate.Style.Format = "€ ##,##0.00"
.ReadOnly = False
End With
Me.DataGridView.Columns.Add(col0)
End Sub

Spero di esserti stato di aiuto.