textbox and DB

[zero01]

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


[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]

[zero01]

یافتم مرسی
کد اجرا شده:
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