奇怪的未将对象引用设置到对象的实例？

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim Conn As SqlConnection
Dim Cmd As SqlCommand
Dim DA As New SqlDataAdapter
Dim DS As DataSet
Conn = New SqlConnection(ConfigurationSettings.AppSettings("strConnection"))
Conn.Open()
Cmd = New SqlCommand("SelectChat_Custom_Menu", Conn)
Cmd.CommandType = CommandType.StoredProcedure
DA.SelectCommand = Cmd
DS = New DataSet
DA.Fill(DS)
With objRepeater
.DataSource = DS.Tables(0).DefaultView
.DataBind()
End With
DS.Tables(0).Clear()
DS.Clear()
Conn.Close()
End If
End Sub

“/”应用程序中的服务器错误。
--------------------------------------------------------------------------------

未将对象引用设置到对象的实例。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。

源错误:


行 28： DA.Fill(DS)
行 29： With objRepeater
行 30： .DataSource = DS.Tables(0).DefaultView
行 31： .DataBind()
行 32： End With