Sn Seruz Hocamın 14. mesajdaki eklentiyi programıma eklemek istedim. Burada hata veriyor. Nasıl uyarlayabiliriz. Saygılar...

Public Function SetListBox(ObjectType As Integer)
On Error GoTo Function_Err

Dim db As ADO.Database
Dim rst As ADO.Recordset
Dim strSQL As String
Dim intNum As Integer
Dim strData As String

Set db = CurrentDb()

OpenType = ObjectType

Select Case ObjectType