الامر DBEngine لايعمل

Dim mdb As Database

Dim rec1 As Recordset

Dim rec2 As Recordset

Dim lno As Long

Dim i As Integer

Dim mark As String

If ms1 = 1 Then

Set mdb = DBEngine.Workspaces(0).Databases(0)

Set rec1 = mdb.OpenRecordset("select * from [ÇáÚÞÏ] where [ÑÞã ÇáãÓÊÇÌÑ]=" & Me![ÑÞã ÇáãÓÊÇÌÑ] & " order by [ÊÇÑíÎ ÇáÈÏÇíÉ] asc ;") ' Create Recordset.

numrec1 = rec1.RecordCount

rec1.MoveLast