add value based on data source in column (DEPT) in data gridview

[roy88]

Dear all master,


please help I want to add value based on each data source in the column (dept) in datagridview.
What I mean as below :
data source DEPT
V:\NOW BOJ
Z:\DATA\Malfin 07\NOW M07
Z:\DATA\Malfin 18\NOW M18
Z:\DATA\Malfin D2\NOW MD2

thanks

roy88

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            Dim col As New DataGridViewTextBoxColumn
            Dim dt = New DataTable()
            Dim cn = "provider=Microsoft.Jet.OLEDB.4.0; data source=V:\NOW; Extended Properties=dBase IV"
            Using adapter As New OleDbDataAdapter("select ITM,ITC,QOH,PRS FROM IFG", cn)
                adapter.Fill(dt)
            End Using
            cn = "provider=Microsoft.Jet.OLEDB.4.0; data source=Z:\DATA\Malfin 07\NOW; Extended Properties=dBase IV"
            Using adapter As New OleDbDataAdapter("select ITM,ITC,QOH,PRS FROM IFG", cn)
                adapter.Fill(dt)
            End Using
            cn = "provider=Microsoft.Jet.OLEDB.4.0; data source=Z:\DATA\Malfin 18\NOW; Extended Properties=dBase IV"
            Using adapter As New OleDbDataAdapter("select ITM,ITC,QOH,PRS FROM IFG", cn)
                adapter.Fill(dt)
            End Using
            cn = "provider=Microsoft.Jet.OLEDB.4.0; data source=Z:\DATA\Malfin D2\NOW; Extended Properties=dBase IV"
            Using adapter As New OleDbDataAdapter("select ITM,ITC,QOH,PRS FROM IFG", cn)
                adapter.Fill(dt)
            End Using
            Me.DataGridView1.DataSource = dt
            DataGridView1.DataSource = dt
            DataGridView1.RowHeadersVisible = False
            col.HeaderText = "DEPT"
            DataGridView1.Columns.Add(col)
 Catch myerror As OleDbException
            MessageBox.Show("Error: " & myerror.Message)
        Finally
End Try
End Sub
End Class