bs = New BindingSource
bs.DataMember = "Orte"
bs.DataSource = ds
 
Dim dvLand As DataView = New DataView(dsCrossRefAdressen.Tables("Laender"))
 
Dim OrtIdent As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
Dim Postleitzahl As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
Dim Ort As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn
Dim LandIdent As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn
 
With OrtIdent
 .DataPropertyName = "OrtIdent"
 .HeaderText = "OrtIdent"
 .Name = "OrtIdent"
End With
 
With Postleitzahl
 .DataPropertyName = "Postleitzahl"
 .HeaderText = "Postleitzahl"
 .Name = "Postleitzahl"
End With
 
With Ort
 .DataPropertyName = "Ort"
 .HeaderText = "Ort"
 .Name = "Ort"
End With
 
With LandIdent
 .ValueType = GetType(Integer)
 .HeaderText = "LandIdent"
 .DataSource = dvLand
 .ValueMember = "LandIdent"
 .DisplayMember = "Land"
 .Name = "LandIdent"
 .DataPropertyName = "LandIdent"
End With
 
With dgvDatenAnzeige
  .Columns.Add(OrtIdent)
  .Columns.Add(Postleitzahl)
  .Columns.Add(Ort)
  .Columns.Add(LandIdent)
End With
 
With dgvDatenAnzeige
 .DataSource = bs
End With