Private Sub OutlookGrid1_ColumnHeaderMouseClick(ByVal sender As System.Object, _
  ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles _
  OutlookGrid1.ColumnHeaderMouseClick
    If (e.RowIndex >= 0 And e.ColumnIndex >= 0) Then
        MsgBox(e.ColumnIndex.ToString)
    End If
End Sub

OutlookGrid1.BindData(Nothing, Nothing)
        OutlookGrid1.Columns.Add("ID", "ID")
        OutlookGrid1.Columns.Add("name", "Firmenname")
        OutlookGrid1.Columns.Add("alter", "Rubrik")
        OutlookGrid1.Columns("ID").Visible = False
 
        db.Auslesen("SELECT * FROM Firmen " & WHERE & " ORDER By Firmenname")
        For Each Firma As DataRow In db.dt.Rows
            Dim row As String() = {Firma("ID"), _
                                   db.DNP(Firma("Name"), "na", "Str"), _
                                   db.DNP(Firma("Alter"), "na", "Str"), _}
            OutlookGrid1.Rows.Add(row)
        Next