طلب تصحيح كود إستعلام

الرجاء المساعدة لمعرفة أين يكون الخطأ فى هذا الكود

فى تحميل الفورمة

Dim DB As ADODB.Connection

Dim RS As ADODB.Recordset

ده الكود مع الكومند

Private Sub Command5_Click()

Set DB = New ADODB.Connection

Set RS = New ADODB.Recordset

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=shima; Data Source=" & App.Path & "\data\fatawa.mdb"

RS.Open "SELECT * FROM fataway" & _

"WHERE n_f=text1.text ", DB, adOpenStatic, adLockOptimistic

Set DataReport1.DataSource = RS

DataReport1.Show

Set DB = Nothing

Set RS = Nothing

End Sub

المشكلة أنه مش راضى يقرأ من قاعدة البيانات بالشكل اللى أنا طلبه بالرغم لما أحذف كلمة where والجزء اللى مرتبط بيها تشتغل فى التقرير مظبوط لكنه بيعرض كل السجلات

أنا عايزه يعرض السجلات اللى بحيث يكون رقم الحقل n_f يساوى التكست بوكس الموجودة على الفورمة

مش عارف أكتب كود الإستعلام صح

رجاء المساعدة ضرورى جدا