Compile Error...

[dvannoy]

All of the sudden in one of my databases i get the following error...

function or interface marked as restricted,or the fucntion uses an automation type not supported in visal basic..

Heres my code


Private Sub cmbselord_AfterUpdate()
Dim dbstrans As Database
Dim rdstrans As Recordset
Set dbstrans = DBEngine.Workspaces(0).Databases(0)
Set rdstrans = dbstrans.OpenRecordset("select id, [product billing].* from [product billing] where (((ID)= " & cmbselord & &quot);&quot

it highlights DBEngine...

It was working fine yesterday..

I did a repair database and still wont work..


Thanks in Advance


DVannoy
A+,Network+,CNA
dvannoy@onyxes.com

 

[nickjar2]

Try:

Set dbstrans = currentdb()

I don't know why the DBEngine won't work though.

Nick