主题：[求助]"Imports "语句前必须是声明？

Imports System.Data.SqlClient

Public  Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
' 利用 SqlConnectionStringBuilder 对象来构建连接字符串。
Dim connectStringBuilder As New SqlConnectionStringBuilder()
connectStringBuilder.DataSource = "WIN7-PC"
' 使用相对路径的手法来指定所要附加的 SQL Server 数据库文件。
'connectStringBuilder.AttachDBFilename = "|DataDirectory|\附加数据库\乐博网.mdf"
connectStringBuilder.AttachDBFilename = "D:\GSql\Data\练习附加2.mdf"
connectStringBuilder.IntegratedSecurity = True
' 附加数据库。
connectStringBuilder.UserInstance = False
' 将附加至 SQL Server 实例的数据库名称设定成“乐博网”。
connectStringBuilder.InitialCatalog = "练习附加2"


Try
Using cn As New SqlConnection(connectStringBuilder.ConnectionString)
cn.Open()

MessageBox.Show("已成功附加（练习附加2）数据库，可以开始执行数据库的存取操作。")

' 您可以接着撰写存取所附加之数据库的程序代码。

End Using

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Option Strict On
Imports System.Data.SqlClient

Public Class LOB

Private Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttach.Click
' 利用 SqlConnectionStringBuilder 对象来构建连接字符串。
Dim connectStringBuilder As New SqlConnectionStringBuilder()
connectStringBuilder.DataSource = "WIN7-PC"
' 使用相对路径的手法来指定所要附加的 SQL Server 数据库文件。
'connectStringBuilder.AttachDBFilename = "|DataDirectory|\附加数据库\乐博网.mdf"
connectStringBuilder.AttachDBFilename = "D:\GSql\Data\练习附加2.mdf"
connectStringBuilder.IntegratedSecurity = True
' 附加数据库。
connectStringBuilder.UserInstance = False
' 将附加至 SQL Server 实例的数据库名称设定成“乐博网”。
connectStringBuilder.InitialCatalog = "练习附加2"


Try
Using cn As New SqlConnection(connectStringBuilder.ConnectionString)
cn.Open()

MessageBox.Show("已成功附加（练习附加2）数据库，可以开始执行数据库的存取操作。")

' 您可以接着撰写存取所附加之数据库的程序代码。

End Using

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class