Podrias modificarlo asi... :
Código vb:
Ver originalCase 1
llenoCombo(combobox1,"1")
Case 2
llenoCombo(combobox2,"2")
Case 3
(...)
Public Sub llenoCombo(Byval combo As ComboBox, Byval parametro As String)
Dim consulta = "select... from .... where ... = " & parametro
Dim cmd As OleDb.OleDbDataAdapter
Dim dt As DataTable
'conectamos a la base de datos
conexion.conecta()
cmd = New OleDb.OleDbDataAdapter(consulta, cnn)
dt = New DataTable
cmd.Fill(dt)
total = dt.rows(0).item(0).toString()
For i = 0 To total - 1
Formulario_Quejas.combo.Items.Add(dt.Rows(i).Item(0))
Next
End Sub
Talvez se pueda mejorar mas, ahora ando ocupado mas tarde sigo revisando tu code y te respondo para optimizar mas
