کمک در مورد استفاده از QueryDef پارامتری در DAO

[sadegi]

با عرض سلام خدمت دوستان عزیز
دوستان یه نگاهی به این کد بندازین و بگین که اشکال این کد چیه (اعصابم رو خرد کرده)

Dim ws As Workspace
Dim db As Database
Dim qd As QueryDef

Private Sub Form_Load()
Set ws = DBEngine.CreateWorkspace(0)
Set db = ws.OpenDatabase("d:\aaa.MDB")
Set qd = db.CreateQueryDef(xx)
qd.SQL = "PARAMETRS fi TEXT; SELECT Title from Titles WHERE Title like fi"
qd.Parameters.Refresh
qd.Parameters(fi).Value = Text1.Text
End Sub

[sadegi]

در ضمن اگه یه مثال بزارین خیلی خیلی ممنون میشم (هم ساخت و هم استفاده از Query Def پارامتری در DAO )
:flower: :flower: :flower:

[sadegi]

از دوستان و اساتید کسی نظری نداره؟
:( :( :( :(

[sadegi]

اگه یکی از دوستان راه حل مشکل من رو میدونه ممنون میشم که یه کمکی به من بکنه
:flower: :flower: :flower:

[sadegi]

:گیج: :گیج: :گیج:
کسی از دوستان نظری نداره؟

[sadegi]

خیلی ممنون از همه دوستانی که کمک کردن
دیگه از خیرش گذشتم
:sad2: :sad2: :sad2:

[sadegi]

از اساتید کسی نیست که یه کمکی به من بکنه
لطفا هر کدوم از دوستانی که نظری در این مورد دارن یه راهنمایی بکنن(Please)

:flower: :flower: :flower: :flower: