Hola,
Tienes 2 maneras...
La erronea:
Llamar a la base de datos, llenar un dataset o datatable, recorrerlo y segun la restriccion llenar el combobox.... :(
La Correcta
Llamar a la base de datos, llenar un dataser o datatable pero con el dataadapter que implemente el filtro, osea...
Public Function EjecutarSQLString2DataTable(byval Condicion as integer) As DataTable
dim _ConexionCadena as string
_ConexionCadena = "data source =" & _Server & "; initial catalog =" & _DataBase & "; user id = " & _Usuario & "; password = " & _Password
dim sqlstring = "select * from table where id_tabla = " & Condicion
Dim Dt As New DataTable("Resultado")
Dim De As New SqlDataAdapter(SqlString, _ConexionCadena)
'Procedimiento
Try
De.Fill(Dt)
Catch ex As Exception
msgbox(ex.Message.ToString)
EjecutarSQLString2DataTable = Nothing
Exit Function
End Try
'Devolver Parametros
Return Dt
End Function