Sad trenutno nemam instaliran Access na racunaru pa predpostavljam da je zbog toga, jer prije je sve radilo normalno.
Evo kod:
strPat = App.Path & "\" & "db1.mdb"
ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPat & _
";Persist Security Info=False;"
ImeTable = "222"
sQvr = "SELECT * FROM " & ImeTable
Set adoCon = New ADODB.Connection
adoCon.Open ConStr
Set AdoRS = New ADODB.Recordset
AdoRS.Open sQvr, adoCon, , adLockBatchOptimistic
Gresku prijavljuje u zadnjem redu pri otvaranju recordseta.
evo greska:
Run-time error '-2147467259 (80004005)':
Invalid Date setting in the Xbase key of the Windows Registry.
Sa bazama starijim od access 2000 radi normalno.
U cemu je kvaka??? nemojte samo reci - instaliraj Access 2000.