深圳湾体育馆演唱会2017年排期表:大家看看这段代码怎么连接不上SQL

Sub show_Grid()

Dim oausername As String = Request.Cookies("oabusyusername").Value
Dim oauserdept As String = Request.Cookies("oabusyuserdept").Value
Dim MyConnection As SqlConnection
Dim ConnStr As String
Dim MyConn As String
MyConn = "Data Source=(local);User ID=mqqa;Initial Catalog=myoa" ' ConfigurationSettings.AppSettings("DSN")
MyConnection = New SqlConnection(MyConn)
MyConnection.Open()
Dim strCom As String = "SELECT sumid,sumlevel ,sumtitle ,sendername ,sendtime,sumcontent,receiver, note FROM worksum where sendername='" + oausername + "' or receiver= '" + oausername + "' and note = '' ORDER BY sumid desc"
Dim myDataSet As DataSet = New DataSet()
Dim myCommand As SqlDataAdapter = New SqlDataAdapter(strCom, MyConnection)
'填充
myCommand.Fill(myDataSet, "worksum")

Grid1.DataSource = myDataSet.Tables("worksum").DefaultView
'绑定
Grid1.DataBind()

MyConnection.Close()
End Sub

老是说我SqlConnection没定义，好象不需要吧
我用的是ASP.NET
但是VB控件
我在安装时没建立任何库.....