Asp.net连接数据库教程（vb.net）

Asp.net连接SQL Server2000数据库例程详解: 
<%@ Import Namespace="System.Data" %> 
<%@ Import NameSpace="System.Data.SqlClient" %> 
<script laguage="VB" runat="server"> 
sub page_load(sender as Object,e as EventArgs) 
Dim myConnection As SqlConnection 
Dim myCommand As SqlCommand 
Dim ds as DataSet 
'1.connect to sql server 
myConnection = New SqlConnection( "server=localhost;database=Pubs;uid=ueytjdf;pwd=doekdf" ) 
myConnection.Open() 
la1.text="Connection Opened!" 
'2.Create a table 
myCommand = New SqlCommand( "CREATE TABLE [test] ([id] [int] IDENTITY (1, 1) NOT NULL ,[name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,[sex] [char] (10) COLLATE Chinese_PRC_CI_AS NULL )", myConnection ) 
myCommand.ExecuteNonQuery() 
la2.text="New table created!" 
'2 添加纪录 
myCommand = New SqlCommand( "Insert into [test] (name,sex) values( '黄志文','男' )", myConnection ) 
myCommand.ExecuteNonQuery() 
la3.text="New Record Inserted!" 
'3 更新数据 
myCommand = New SqlCommand( "UPDATE [test] SET name='Smith' where name='李明'", myConnection ) 
myCommand.ExecuteNonQuery() 
la4.text="Record Updated!" 
'4 删除数据 
myCommand = New SqlCommand( "delete from [test] where name='Smith'", myConnection ) 
myCommand.ExecuteNonQuery() 
la5.text="Record Deleted!" 
'5 用DataGrid显示数据 
myComma