01.
Private
Sub
check_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
02.
Dim
strConn
As
String
03.
strConn = DBConnString.strConn
04.
05.
Conn =
New
SqlConnection()
06.
With
Conn
07.
If
.State = ConnectionState.Open
Then
.Close()
08.
.ConnectionString = strConn
09.
.Open()
10.
End
With
11.
sb.Append(
"SELECT * FROM Health;"
)
12.
Dim
sqlIni
As
String
13.
sqlIni = sb.ToString()
14.
15.
com =
New
SqlCommand()
16.
With
com
17.
.CommandText = sqlIni
18.
.CommandType = CommandType.Text
19.
.Connection = Conn
20.
dr = .ExecuteReader()
21.
If
dr.HasRows
Then
22.
dtch =
New
DataTable()
23.
dtch.Load(dr)
24.
25.
26.
With
Me
.myRdoList1
27.
.DataSource = dtch
28.
.DataTextField =
"CountryName"
29.
.DataValueField =
"CountryCode"
30.
.DataBind()
31.
End
With
32.
33.
End
If
34.
35.
36.
End
With
37.
dr.Close()
38.
39.
40.
End
Sub