asp.net(vb)的问题

代码:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim Cnn As OleDbConnection
Dim Cmd As OleDbCommand
Dim Sql As String
Dim StrCnn As String

Dim PathStr As String

StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Blog.mdb")
Cnn = New OleDbConnection(StrCnn)
Cnn.Open()

PathStr = Server.MapPath("Blog.mdb")
PathStr = Left(PathStr, InStrRev(Trim(PathStr), "\"))

PathStr = PathStr & "\music"

If FileUpload1.HasFile Then
PathStr = Trim(PathStr) & "\" & FileUpload1.FileName
FileUpload1.SaveAs(PathStr)
End If
Sql = "insert into music([songname],[msaddr])values(" & sn.Text & &

VB ASP.net的问题 asp.net问题 vb ASP和ASP.NET C++和VB.NET的问题 ASP。NET问题，用VB。NET编写 vb.net ASP DataGrid 相关问题 vb.net的问题 VB.NET的问题 ASP.NET的问题 asp.net的问题 ASP.NET的问题??