以下代码为什么会出错
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dst As New DataSet()
Dim con As New SqlClient.SqlConnection()
Dim dad As New SqlClient.SqlDataAdapter()
Dim bb As DataView
Dim arr(2) As Object
Dim introwindex As Integer
dst = New DataSet()
con = New SqlClient.SqlConnection("server=localhost;uid=sa;database=pubs")
dad = New SqlClient.SqlDataAdapter("select * from authors", con)
dad.Fill(dst, "authors")
bb = dst.Tables("authors").DefaultView()
bb.Sort = "au_lname,au_fname"
arr(0) = "dull"
arr(1) = "ann"
introwindex = bb.Find(arr)
If introwindex <> -1 Then
Response.Write(bb(introwindex).Row("phone"))
Else
Response.Write("no...")
End
End Sub