Tendrías que poner la función en un módulo .bas como Public y pasarle como parámetro el nombre del DataCombo:
p.ej. en Module1.bas
Código:
Public Function LlenarCliente(MiCombo As DataCombo)
Set rsCateg = New Recordset
rsCateg.Open "SELECT * FROM categoria", dbConex, adOpenStatic, adLockOptimistic
MiCombo.BoundColumn = "CodCat"
MiCombo.ListField = "NomCat"
Set MiCombo.RowSource = rsCateg
End Function
y para llamar a la función desde cualquier formulario:
LlenarCliente dtcCategoria <- ó el nombre que le hayas puesto a cada DataCombo
Esto siempre que los campos y la tabla sean los mismos. Si quisieras cargar el DataCombo con los datos de otra tabla, deberías además pasarle como parámetros el recordset y los dos campos.