Public Class frmHistory

    Private Sub frmHistory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
        Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
        TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
        Me.TBGI_HISTORYTableAdapter.Fill(Me.MyDataset.TBGI_HISTORY, user)

    End Sub
End Class