Private Sub InitTable()
        TabelleAVDetails = New DataTable("Test")
 
        Dim oCol As DataColumn = TabelleAVDetails.Columns.Add
        oCol.DataType = GetType(String)
 
        oCol = m_oTbl.Columns.Add()
        oCol.DataType = GetType(Integer)
 
        oCol = m_oTbl.Columns.Add()
        oCol.DataType = GetType(Integer)
 
        oCol = m_oTbl.Columns.Add()
        oCol.DataType = GetType(String)
 
        grdAvnFachstellen.DataSource = TabelleAVDetails
    End Sub
 
Private Sub btnAddFachstelle_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnAvnAddFachstelle.Click
            Dim oRow As DataRow = TabelleAVDetails.NewRow
            oRow(0) = ""
            oRow(1) = cboAvnFachstellen.SelectedValue
            oRow(2) = cboAvnFachstellen.SelectedValue
            oRow(3) = txtPensum.Text
            TabelleAVDetails.Rows.Add(oRow)
 
            grdAvnFachstellen.DataSource = TabelleAVDetails
End Sub