Dim Conn As New MySqlConnection(ConnString)
                Dim Com As New MySqlCommand()
                Dim da As New MySqlDataAdapter()
                Com.Connection = Conn
                da.SelectCommand = Com
                Com.CommandText = "SELECT * FROM tabelle ORDER BY ID"
                dtTabelle.Clear()
                da.Fill(dtTabelle)