Multiple combobox from one datasource

Question

Hi all
i have 5 combobox that all have data from one table but different values.
sample for one combobox
Private Sub ucitajobveznikpdv()
        Dim tabsyskonta = True
        Dim dt As New DataTable
        Dim ds As New DataSet
        ds.Tables.Add(dt)
        SQL.DodajParametre("@tabsyskonta", tabsyskonta)
        SQL.ParamQuery("SELECT Parametar + ' - ' + Naziv AS Opis, Parametar  FROM TabParamSys WHERE Tab_Partneri_PDV=@tabsyskonta ORDER BY Parametar")
        If SQL.SQLDS.Tables.Count > 0 Then
            cbPDVObveznik.DataSource = SQL.SQLDS.Tables(0)
            cbPDVObveznik.ValueMember = "Parametar"
            cbPDVObveznik.DisplayMember = "Opis"
            cbPDVObveznik.SelectedIndex = -1
            SQL.SQLDA.Fill(dt)
            Dim r As DataRow
            cbPDVObveznik.AutoCompleteCustomSource.Clear()
            For Each r In dt.Rows
                cbPDVObveznik.AutoCompleteCustomSource.Add(r.Item("Opis").ToString)
            Next
        End If
    End Sub
second sample
  Private Sub ucitajinopartner()
        Dim tabsyskonta = True
        Dim dt As New DataTable
        Dim ds As New DataSet
        ds.Tables.Add(dt)
        SQL.DodajParametre("@tabsyskonta", tabsyskonta)
        SQL.ParamQuery("SELECT Parametar + ' - ' + Naziv AS Opis, Parametar  FROM TabParamSys WHERE Tab_Partneri_InoPart=@tabsyskonta ORDER BY Parametar")
        If SQL.SQLDS.Tables.Count > 0 Then
            cbInoPartner.DataSource = SQL.SQLDS.Tables(0)
            cbInoPartner.ValueMember = "Parametar"
            cbInoPartner.DisplayMember = "Opis"
            cbInoPartner.SelectedIndex = -1
            SQL.SQLDA.Fill(dt)
            Dim r As DataRow
            cbInoPartner.AutoCompleteCustomSource.Clear()
            For Each r In dt.Rows
                cbInoPartner.AutoCompleteCustomSource.Add(r.Item("Opis").ToString)
            Next
        End If
    End Sub
 and so on
is it possible to select all data in one query and read for specific column condition and fill combobox with that data
hope you can understand 
sorry for my bad english 
thanks

Answer 1

Just connect to database and use a reader object, then in the loop you can decide what you want to add to each combobox. This way you  have full control on what you want to do:
Dim query
As
String =
"SELECT * FROM table WHERE company=" & company &
" AND type=0"
Try
Using cn
As
New
OdbcConnection(invoiceDataSourceString)
'Connect to correct database server
cn.Open()
Using cmd
As
New
OdbcCommand(query, cn)
Dim reader
As
OdbcDataReader
reader = cmd.ExecuteReader
Do
While reader.Read
'Set vars from database
count = reader("count")
Loop
reader.Close()
End
Using
cn.Close()
cn.Dispose()
End
Using
Catch e
As
OdbcException
dbaseError(e, invoiceDataSourceString, query)
Catch ex
As
Exception
If debug
Then MsgBox(ex.Message)
End
Try