خطا در اجرای برنامه

[(سیدشریفی)]

با سلام من در هنگام اجرای برنامه زیر با خطای 3061 مواجه میشوم لطفا راهنمایی فرمایید

    Set MyDB = DBEngine.Workspaces(0).OpenDatabase("T  est.mdb")

    Data1.DatabaseName = "Test.mdb"

    

    Data1.RecordSource = "SELECT * FROM Table WHERE Conter = MyConter ORDER BY Uni"

    Data1.Refresh

این خطا در آخرین خط برنامه ایجاد میشود .