紧急！SQL SERVER数据库中的信息如何读出

Question

Dim strImageID as String = Request.QueryString("id")
  Dim myConnection As New SqlConnection("Data Source=.;Initial Catalog=mxh;User Id=sa;Password=;")
  Dim myCommand As New SqlCommand("Select PersonImageType, PersonImage from Person Where PersonID=" _
    + strImageID, myConnection)Try
    myConnection.Open()
    Dim myDataReader as SqlDataReader 
    myDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
    Do While (myDataReader.Read())
    Response.ContentType = myDataReader.Item("PersonImageType")
    Response.BinaryWrite(myDataReader.Item("PersonImage"))
    Loop
    myConnection.Close()
    Catch SQLexc As SqlException
  End Try