title: Multiple select statements into ACCESS database
body: <p>In my VB.net application I have 5 listboxes that I'm filling on form load. But I have ugly solution because for every listbox I have some FillItUp function, which opens connection, gets data from database and then populates my listbox. Problem is that I'm triggering this five times on form load.</p>
  
  <p>This is my code:</p>
  
  <pre><code> Public Sub FillListboxesColors()
      Try
          sqL = "SELECT * FROM Colors"
          ConnDB()
          cmd = New OleDbCommand(sqL, conn)
          dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
  
      Do While dr.Read = True
      chkColor.Items.Add(dr.Item("color"))
  
          Loop
  
      Catch ex As Exception
          MsgBox(ex.Message)
      Finally
          cmd.Dispose()
          conn.Close()
      End Try
  End Sub
  </code></pre>
  
  <p>I have that exact situation for every CheckedListBox.
  So the question - is there a way where I can fill all listboxes in one procedure. So I'm opening connection to my database only once.</p>
  
  <p>Like this...but I'm aware this is not possible with AccessDB. </p>
  
  <pre><code> cmd.CommandText = "SELECT * FROM Colors; SELECT * FROM Paper"
          dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
  
          Do While dr.Read = True
              chkColor.Items.Add(dr.Item("color"))
              chkPaper.Items.Add(dr.Item("paper_type"))
          Loop
  </code></pre>
  
  <p>I'm asking for some helping code. Ty.</p>