کمک فوری - سرچ در جدول و بارگذاری در تکست باکس

[rouzbeh_ziafati]

سلام
لطفا این کد رو برام یکی بنویسه
از جدول مثلا customer بر اساس یه فیلد مثلا meii_code یه مقداری جستجو بشه و بعد از پیدا شدن اطلاعات اون رکورد در چند تا تکست باکس که داخل فرم هستند بارگذاری بشن

خودم این کد رو نوشتم اما خطا داره

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

'Get the database and Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Customer")

rst.FindFirst "[meli_code] = '0430150199'"
'Check the result
If rst.NoMatch Then
MsgBox "Record not found."

Else
Do While Not rst.NoMatch
MsgBox "Customer name: " & rst!CustName
rst.FindNext "[meli_code] LIKE '*parts*'"
Loop

'Search for the next matching record
rst.FindNext "[meli_code] LIKE '*parts*'"
End If


روی این خط بهم خطا میده
rst.FindFirst "[meli_code] = '0430150199'"
میگه : operation is not supported for this type of object

[mazoolagh]

1- کد ها رو در تگ code یا vb قرار بدین تا خوانا باشه

2- پیغام خطا خودش مشخص میکنه که نوع رکوردستی که باز کردین متد find رو پشتیبانی نمیکنه
نوع رکوردست بصورت پیش فرض table هست، باید dynaset باشه
SET RST=CURRENTDB.OPENRECORDSET("...",DBOPENDYNASET)

3- کدی که برای جستجو نوشتین خوب نیست!