کار با datagrid

[roya_up_date]

سلام چطور می تونیم از datagridو adodc استفاده کنیم سوال من این بود که یک شرطی دارم که باید برابر با رشته داخل تکسباکس باشه البته یه کلیدی گذاشتم که با هنگام کلیک بر ان با دستور اجرا بشه و اگه شرط برقراربود دادهها در datagridنمایش داده بشن به این صورت


()Private Sub Command3_Click
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\New Folder (2)\Copy of rahimi.mdb;Persist Security Info=False"
('"+Adodc1.RecordSource = "select nbook,code from book where(nauther='" + Text1.Text
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub


اما به end subخطا می ده لطفا کمک کنید تو رو خدا