da.Check_Conn()
da.connection.Open()
MsgBox(da.connection.State())
dap.Fill(ds)
lblquestions.Text = ds.Tables(0).Rows(0)(0)
Label1.Text = ds.Tables(0).Rows(0)(1)
rad1.DataSource = ds.Tables(0)
rad1.DataBind()
rad1.Text = ds.Tables(0).Rows(0).ToString