Visual Basic - llenar un combo con datos desde una funcion en un

necesito llenar un combo de un formulario con datos desde una funcion en un modulo, ya que repito este mismo llenado en varios formularios

El llenado de datos no es problema pero como paso los parametros a la funcion para que no importa cual combo de cualquier formulario se pueda llenar.

es decir que la funcion en un modulo me sirva con solo asignar el combo de un formulario

De ante mano gracias !!!!

Private Sub Form_Load()
'Lo mandas llamar de esta manera
Sql = "Select Nombre As CampoAMostrar From T_Datos_Empleados Order By Nombre"
LlenaCombos Combo1, Sql
Sql = "Select Apellido As CampoAMostrar From T_Datos_Empleados Order By Apellido"
LlenaCombos Combo2, Sql
End Sub

'debe de estar en modulo el siguiente codigo
Sub LlenaCombos(CmbControl As ComboBox, Sql As String)
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
If Rs.State = adStateOpen Then Rs.Close
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenDynamic
Rs.LockType = adLockOptimistic
Rs.Open Sql, cnbase
Do While Not Rs.EOF
CmbControl.AddItem Rs!CampoaMostrar
Rs.MoveNext
Loop
CmbControl.ListIndex = 0
End Sub
'Nota es importante que siempre le pongas el mismo nombre a los campos, ejemplo Nombre As CampoAMostrar, Apellido As CampoAMostrar, estas dos consultas utilizan dos campos diferentes pero siempre se le ponen un "As" para que sea el mismo nombre, ok saludos!!!.