Public Class frmTest
 
    Dim dt As New DataTable
    Dim bs_grid As New BindingSource
    Dim bs_combo As New BindingSource
 
    Private Sub Form_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
 
        With dt
            With .Columns
                .Add("Spalte0", GetType(String))
                .Add("Spalte1", GetType(String))
                .Add("CompCol", _
                 GetType(String), "Spalte0 + '  ' + Spalte1")
            End With
            .Columns(0).Unique = True
 
            With .Rows
                .Add("Zeile1 Sp. 0", "Sp. 1")
                .Add("Zeile2 Sp. 0", "Sp. 1")
                .Add("Zeile3 Sp. 0", "Sp. 1")
                .Add("Zeile4 Sp. 0", "Sp. 1")
            End With
        End With
 
        bs_grid.DataSource = dt
        With DataGridView1
            .DataSource = bs_grid
            .MultiSelect = False
            .AllowUserToDeleteRows = False
            .Columns("CompCol").Visible = False
        End With
 
        Dim dv As DataView = New DataView(dt)
        bs_combo.DataSource = dv
        bs_combo.Filter = "Spalte0 <> '' And Spalte1 <> ''"
        ComboBox1.DataSource = bs_combo
        ComboBox1.DisplayMember = "CompCol"
    End Sub
 
    Private Sub DataGridView1_DataError(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) _
        Handles DataGridView1.DataError
        MsgBox("Eingabefehler " & e.Exception.Message)
    End Sub
End Class