Problema cargar combobox entre funciones

[devilinside]

No sé si la consulta es la misma para todos los caso y que solamente varía el parámetro, al menos eso parece por lo que has publicado. Si es así, aquí te dejo una propuesta y espero q al menos te de una idea.

Código Vb.Net:

Private Sub Llenado()
        llenaCombo(Formulario_Quejas.combobox1, 1)
        llenaCombo(Formulario_Quejas.combobox2, 2)
        llenaCombo(Formulario_Quejas.combobox3, 3)
        llenaCombo(Formulario_Quejas.combobox4, 4)
    End Sub
 
    Private Sub llenaCombo(ByVal MiCombo As ComboBox, ByVal Parametro As Integer)
        With MiCombo
            .DataSource = ejecuta_consulta("select id,Nombre from MiTabla where id=", Parametro)
            .ValueMember = "id"
            .DisplayMember = "Nombre"
        End With
    End Sub
 
    Public Function ejecuta_consulta(ByVal consulta As String, ByVal Parametro As Integer) As DataTable
        Dim cmd As OleDb.OleDbDataAdapter
        Dim dt As DataTable
        Dim conexion As New MiConexion
        Try
            consulta = consulta & CStr(Parametro)
            'conectamos a la base de datos
            conexion.conecta()
            'cmd = New OleDb.OleDbDataAdapter(consulta, cnn)
            cmd = New OleDb.OleDbDataAdapter(consulta, conexion)
            dt = New DataTable
            cmd.Fill(dt)
            'Return dt.Rows(0).Item(0)
            Return dt
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            conexion.desconecta()
        End Try
    End Function
 

Saludos.