Dim olecon As New OleDb.OleDbConnection
        olecon.ConnectionString = CreateConnectionString("C:\DB.mdb", False)
        Dim cmd As OleDb.OleDbCommand = olecon.CreateCommand
 
        cmd.CommandText = "SELECT LfdNr_Room, Room_Name FROM Room"
 
        Dim da As New OleDb.OleDbDataAdapter(cmd)
 
        Dim dt As New DataTable
 
        da.Fill(dt)