Private Sub TblServerBindingNavigatorSaveItem_Click(ByVal sender As _
  System.Object, ByVal e As System.EventArgs) Handles _
  TblServerBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TblServerBindingSource.EndEdit()
        Me.TblServerTableAdapter.Update(Me.MDB_DataSet.tblServer)
 
End Sub
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle 
        ' "MDB_DataSet.tblServer". Sie können sie bei Bedarf verschieben oder 
        ' entfernen.
        Me.TblServerTableAdapter.Fill(Me.MDB_DataSet.tblServer)
 
End Sub