Private Sub MakeNewDataSet()
        '//Neues DataSet anlegen
        Dim LastUpdated As Date
        _conn.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";" & _
                                 "User ID=Admin;Data Source=" & DatenbankOrt
        _da = New OleDbDataAdapter("Select * From SB_Daten ORDER BY ID", _conn)
        Try
            _da.Fill(_ds, "SB")
            _dt = _ds.Tables("SB")           
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
 
        'Default Spaltenwerte eintragen (Datum, Namenskürzel, Uhrzeit)
        'Datum
        Me._dt.Columns(2).DefaultValue = DateTime.Today
        'Namenskürzel
        Dim oStart As New CStart
        Me._dt.Columns(1).DefaultValue = oStart.Nick
        'aktuelle Uhrzeit
        Dim Zeit As Date
        Dim ara() As String
        Dim s As String = Now
        ara = s.Split(" "c)
        Zeit = ara(1)
        Me._dt.Columns(9).DefaultValue = Zeit
        Call MyTableStyle(Me.DataGrid1, Me._dt) 'Aussehen des Grids festlegen
        DataGrid1.DataSource = _dt
        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(_da)
        'Cursor in letzte Zeile setzen
        DataGrid1.CurrentCell = New DataGridCell(Me._dt.Rows.Count - 1, 1)
        Me.DataGrid1.Select(Me._dt.Rows.Count - 1)
    End Sub