سوال در مورد جستجو در دیتابیس access

[amir0631]

با سلام
من دارم روی یک کتابخانه کار می کنم اما به مشکل بر خوردم اگر کسی چیزی میدونه کمک کنه.
برای جستجو از این کد استفاده می کنم.

Dim a As Variant
Dim bkm As String
a = Val(cod.Text)
With Me.Data1.Recordset
.FindFirst "code =" & a
If .NoMatch = False Then
MsgBox (" اين کتاب قبلا ثبت شده است")
Else
Data1.Recordset.MoveLast
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = cod.Text
Data1.Recordset.Fields(1) = bname.Text
Data1.Recordset.Fields(2) = bm.Text
Data1.Recordset.Fields(3) = bn.Text
Data1.Recordset.Fields(4) = bt.Text
Data1.Recordset.Fields(5) = bs.Text
Data1.Recordset.Fields(6) = bgh.Text
Data1.Recordset.Fields(7) = bsh.Text
Data1.Recordset.Fields(8) = btir.Text
MsgBox "كتاب ثبت شد"
End If
End With
End Sub
اما توی خط پنجم ارور میده لطفاً کمک کنید.

[spring69]

سلام.
شما مطمئنید که با vb.net کا میکنید.
به نظر میرسه کد شما vb باشه.
اگه vb6 هست فکر کنم اگه سوالتون رو تو این تاپیک بپرسید زودتر به نتیجه میرسید:
مطالب مرتبط با بانکهای اطلاعاتی در VB6 (http://barnamenevis.org/forum/forumdisplay.php?f=166)
موفق باشید.