Dim strNodename As String = strAktuellerKnotenNamen
 
Try
   Me.TABELLE1TableAdapter.FillBy(Me.DATENBANK1DataSet.TABELLE1, strNodename)
Catch ex As System.Exception
   System.Windows.Forms.MessageBox.Show(ex.Message)
End Try