textbox and DB

درود فراوان
کسی میدونه خط آخر رو باید چطوری نوشت


[VB] DS.Reset()
con = New OleDbConnection(strcon)
con.Open()
strOledb = "select Count(TagType) from ConstructCivil where tagType = 'Catch Basin' "
DA = New OleDbDataAdapter(strOledb, con)
DA.Fill(DS, "ConstructCivil")
con.Close()
TextBox1.Text = "" ' error darim/VB]

یافتم مرسی
کد اجرا شده:
dt همون DataTable

            DS.Reset()            con = New OleDbConnection(strcon)

            con.Open()

            strOledb = "select Count(TagType) from ConstructCivil where tagType =  'Catch Basin' "

            DA = New OleDbDataAdapter(strOledb, con)

            dt = New DataTable()

            DA.Fill(dt)

            TextBox1.Text = dt.Rows(0)(0).ToString