Public Class Form1
 
    Dim dt1 As New DataTable
    Dim dv1 As DataView
    Dim BindingSource As BindingSource
    Dim SavePath As String = Environment.GetEnvironmentVariable("appdata") & _
      "\erbru"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        dt1Initialisieren()
 
        dv1 = New DataView(dt1)
 
        BindingSource = New BindingSource()
        BindingSource.DataSource = dv1
 
        DGV1Initialisieren()
 
        cmbAuswahlFuellen()
 
        ToolStripStatusLabel1.Text = "Datensätze: " & dt1.Rows.Count
 
    End Sub
 
    Private Sub cmbAuswahlFuellen()
        With cmbAuswahl
            .Items.Add("Alle")
            .Items.Add("Gefundene")
            .Items.Add("Nicht gefundene")
        End With
    End Sub
 
    Private Sub DGV1Initialisieren()
 
        With DGV1
            .DataSource = BindingSource
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
        End With
 
    End Sub
 
    Private Sub dt1Initialisieren()
 
        With dt1
            With dt1
                Dim IDCol As DataColumn = dt1.Columns.Add("ID", Type.GetType( _
                  "System.Int32"))
                IDCol.AllowDBNull = False
                IDCol.Unique = True
 
                .Columns.Add("Seriennummer", Type.GetType("System.String"))
                .Columns.Add("Bauteil", Type.GetType("System.String"))
                .Columns.Add("Baudatum", Type.GetType("System.String"))
                .Columns.Add("Status", Type.GetType("System.String"))
 
                .TableName = "erbru"
 
            End With
        End With
 
        Dim primaryKey(1) As DataColumn
        primaryKey(1) = dt1.Columns("ID")
        dt1.PrimaryKey = primaryKey
 
    End Sub

EALA FREYA FRESENA