ساعدوني في تصحيح هذا الكود

السلام عليكم ورحمة الله

أريد من اعضاء المنتدى ان يساعدوني في حل الخطأ في هذا الكود في برنامج فجول مرتبط بالاكسس, حيث اريد عرض قيمة معينه في سجل على اساس معرفة قيمة اخرى من نفس السجل

Dim show as new data view

With show

.table=me.DataSet11.tables("bank")

.RowFilter ="CodeNumber=" & textbox1.text

End with

Label1.text=show(0)("CurrentAccount")

اذا شغلت البرنامج بهذا الكود يطلع لي خطأ كما يلي:

Index 0 is not-negative and below total rows count

ساعدوني الله يجزاكم خير

وجربت كود ثاني عشان يعمل نفس العملية لكنه يعرض لي فقط قيمة اول حقل في السجل اللي فيه CodeNumber اللي انا كتبته في التكست بوكس وهو كالتالي

Dim con As New OleDb. OleDbConnection()

Dim sql As String = "select* from bank"

con. ConnectionString = "Provider= Microsoft. Jet. OLEDB. 4.0;" & _

"Data Source= C:\ bank. mdb; Persist Security Info= False"

con. Open()

Dim cmd As New OleDb. OleDbCommand( sql, con)

Label1. Text = cmd. ExecuteScalar(). ToString