Pretpostavljam da ti izbacuje grešku na poslednjoj liniji, a to je zato što verovatno nisi deklarisao objekat db, niti gde si mu setovao bazu. Dakle, imaš dve mogućnosti... ili lepo deklariši db objekat i setuj mu bazu
Code:
Dim db As Database
Set db = OpenDatabase(putanja do baze)
'odradi sta treba, ne primer taj postojeci kod, a zatim zatvori db objekat
db.Close
Set db = Nothing
Drugi i verovatno jednostavniji način je da zameniš ovu liniju
Code:
Set data1.Recordset = db.OpenRecordset(strSQL)
sa ove dve
Code:
Data1.RecordSource = strSQL
Data1.Refresh
Ovo bi trebalo da spreči pojavljivanje greške, a ako ne dobijaš podatke u gridu, proveri da li ti je opovezan sa datasetom, tj. pogledaj da li je DataSource datagrid objekta podešen na Data1. To bi trebalo da bude to.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti