Public Class frm_Rechner
  Dim ping As New System.Net.NetworkInformation.Ping
  Dim lngPingReply As System.Net.NetworkInformation.PingReply
  Dim lngPing As Long
  Dim dsRechner As New DataSet
  Dim drBS As DataRelation
  Dim dtBS As DataTable
  Dim dtRechner As DataTable
  Dim bsbs As New BindingSource
  Dim bsRechner As New BindingSource
  Protected Overrides Sub onload(e As EventArgs)
 
    'Dim dtBS As DataTable
    dsRechner.Locale = System.Globalization.CultureInfo.InvariantCulture
    comRechnerliste.CommandText = "SELECT * FROM tbl_Rechner ORDER BY Rechner"
    Try
      daRechnerliste.Fill(dsRechner, "Rechner")
    Catch ex As Exception
      MessageBox.Show("Das Füllen der Tabelle Rechner ist gescheitert" & vbCrLf _
        & ex.Message)
      Exit Sub
    End Try
    comRechnerliste.CommandText = "SELECT * FROM tbl_Z_Betriebssystem"
    Try
      daRechnerliste.Fill(dsRechner, "Betriebssystem")
    Catch ex As Exception
      MessageBox.Show("Das Füllen der Tabelle Betriebssystem ist gescheitert" & _
        vbCrLf & ex.Message)
      Exit Sub
    End Try
    dtBS = dsRechner.Tables("Betriebssystem")
    dtRechner = dsRechner.Tables("Rechner")
    Try
      Dim Relation As New DataRelation("RechnerBS", dtBS.Columns( _
        "ID_Betriebssystem"), dtRechner.Columns("ID_Betriebssystem"))
      dsRechner.Relations.Add(Relation)
    Catch ex As Exception
      MessageBox.Show("Die Beziehung zwischen Rechner und Betriebssytem konnte" & _
        "nicht hergestellt werden" & vbCrLf & ex.Message)
      Exit Sub
    End Try
    With bsbs
      .DataSource = dsRechner
      .DataMember = "Betriebssystem"
    End With
    With bsRechner
      .DataSource = bsbs
      .DataMember = "RechnerBS"
    End With
    Me.txtBetriebssystem.DataBindings.Add("Text", bsbs, "Betriebssystem")
    Me.txtBetriebssystem.Text = "Windows 7"
    Try
      With Me.autID_Rechner
        .DisplayMember = "ID_Rechner"
        .ValueMember = "ID_Rechner"
        .DataSource = bsRechner
      End With
 
      Me.txtBemerkungen.DataBindings.Add("Text", bsRechner, "Bemerkungen")
      Me.txtClient.DataBindings.Add("Text", bsRechner, "Rechner")
      Me.txtSeriennr.DataBindings.Add("Text", bsRechner, "RechnerSeriennr")
 
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
end sub

Andreas Schoof