<% @ Page language = "vb" debug = "true" trace = "true"%>
<% @ Import namespace = "system.data"%>
<% @ Import namespace = "system.data.sqlclient"%>
SUB Page_Load (Sender As Object, E as Eventargs)
DIM DS AS Dataset
DIM MyConnection As SqlConnection
DIM myadpt as sqldataadapter
MyConnection = New SqlConnection ("Server = 'localhost'; uid = sa; pwd = wenasen.com; database = credit_sql")
Myadpt = new SqldataAdapter ("Select * from admin", myconnection)
DS = new dataset ()
Myadpt.Fill (DS, "admin")
DGA.DataSource = DS.TABLES ("admin"). DefaultView
DGA.DATABIND ()
End Sub
script>
Display SQL Database Title>
hEAD>