'1 连接数据库(使用命令)
Dim conStr As String = ConfigurationManager.ConnectionStrings("conStr").ConnectionString
'Dim conStr As String = "Data Source=.;Initial Catalog=Hotel;Persist Security Info=True;User ID=sa;Password=123456"
Dim con As SqlConnection = New SqlConnection(conStr)
Dim sql ...