fel vid anv repeater och codebehind

jag har ett litet problem när jag använder mig av repeater och codebehind så returneras inte ngt värde till repeatern. verkar som om den hoppar över raden när den skall knyta samman repeatern och källan.

Vad kan detta bero på?

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI.WebControls

Public MustInherit Class meny
    Inherits System.Web.UI.UserControl

    Public lblErrMessage As Label
    Protected WithEvents menyRepeater As Repeater

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("database\dbpelican.mdb")
        Dim strSQL As String = "SELECT lankNamn,menyNamn FROM Meny1"

        Dim myConn As New OleDbConnection(strconn)
        Dim myCommand As New OleDbCommand(strSQL, myConn)
        Dim myDataReader As OleDbDataReader

        If Not Page.IsPostBack Then
            Try
                myConn.Open()
                myDataReader = myCommand.ExecuteReader()

                Response.Write("before datasource ")
                menyRepeater.DataSource = myDataReader
                Response.Write("after datasource ")
                menyRepeater.DataBind()
                myDataReader.Close()
                myConn.Close()

            Catch ex As Exception
                lblErrMessage.Text = ex.Message
            End Try
        End If

        Dim pageChoice As String = Request.QueryString("page")

        If pageChoice = "" Then
            lblErrMessage.Text = "test"
        Else
            Try
                strSQL = "SELECT lank FROM Meny1 WHERE lankNamn = '" & pageChoice & "'"
                myCommand.CommandText = strSQL

                myConn.Open()
                myDataReader = myCommand.ExecuteReader()
                myDataReader.Read()
                Response.Redirect(myDataReader("lank"))
                myDataReader.Close()
                myConn.Close()

            Catch ex As Exception
                lblErrMessage.Text = ex.Message
            End Try
        End If

    End Sub

End Class

Här verkar inget hända

                menyRepeater.DataSource = myDataReader