combobox übergeben

[Luda]

ein nettes hallo an alle!
ich möchte an eine sub eine combobox übergeben wenn ich das mache, bekomme ich die meldung bei dem aufruf. fehler beim kompilieren erwartet =
:
:

comboDynamisch("kunde","ku_nr","Ku_name",me.comboKunde)
:
:
Sub comboDynamisch(strTbl As String, fieldNr As String, fieldName As String, box As DataCombo)


Dim rs As ADODB.Recordset
Dim sql As String

sql = "Select * from " & strTbl
Set rs = db_recordset(cn, sql)

Set Me.combo.RowSource = rs
box.ListField = "" & fieldName
box.BoundColumn = "" & fieldNr
End Sub

 

[NRFi]

setz mal ein call..

also

call comboDynamisch("kunde","ku_nr","Ku_name",me.comboKunde)