(10/12/2009, 22:21)benremix yazdı: 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
referanslara "Microsoft Ado Ext. .... " eklenince düzelecek gibi duruyor.