اتصال گرید به دیتابیس اکسس

[A_1397]

Dim nr1 As RecordSet
"sqlstr1=Select * from table where field1 like '%" & Me.textbox1.Text & "%' order by field2"
nr1.Open(sqlstr1, nt1, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
Me.grid1.DataSource = nr1

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

[M.KH-SH]

دوست عزیز به این روش عمل کن فکر کنم بهتر باشه


dim ds as new dataset
dim con as oledbconnection
dim da as new oledbdataadabter

ds.reset
con=new oledbconnection("str connection")
dim query as string="select * from tb_tst"

con.open
da=new oledbdatadabter(query,con)
da.fill(ds,"table name")
con.close

datagridview1.datasource=ds.table(0)



این یک روش هست

قبلا یک کامپوننت برای این کار درست کرده بودم اینم اون تاپیک:
http://barnamenevis.org/showthread.php?321150-%DA%A9%D8%A7%D9%85%D9%BE%D9%88%D9%86%D9%86%D8%AA-%D8%A7%D8%AA%D8%B5%D8%A7%D9%84-%D8%A8%D9%87-%D8%A8%D8%A7%D9%86%DA%A9-%D9%88-%DA%A9%D8%AF%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%DA%A9%D9%88%D8%AA%D8%A7%D9%87-%D8%A8%D9%87-%D9%87%D9%85%D8%B1%D8%A7%D9%87-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D8%A2%D9%85%D9%88%D8%B2%D8%B4%DB%8C-%D8%AF%D9%81%D8%AA%D8%B1-%D8%AA%D9%84%D9%81%D9%86-%D9%85%D8%AE%D8%AA%D8%B5%D8%B1&p=1408728#post1408728