Como crear un metodo con este codigo?

[Ka0stj]

Yo creo que aparte del nombre del Control deberias de pasarle la consulta SQL, ya que esta puede ser diferente, en ocasiones puede llevar WHERE en ocasiones no.

Ahora bien puedes hacer una función que te regrese el DataTable ya lleno ó hacer un método Sub que llene el Combo. En el caso del método Sub puede ser algo como lo siguiente:

Public Sub cargar_Combo( ByVal ComboBox As ComboBox, ByVal sql As String)

'-- Tu código

End Sub

Saludos!