Lille fejl på Reader data connection VB.Net/MS Access

Hej

Jeg har denne kode som skulle kunne udfylde en repeater men den udskriver ingen data til min repeater, hvad er fejlen evt. !?

    Public Sub OpenDB()
        Dim ObjConn As OleDbConnection
        Dim ObjCmd As OleDbCommand
        Dim ObjReader As OleDbDataReader

        Try
            Dim ConnectionString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
            ObjConn = New OleDbConnection(ConnectionString)
            ObjCmd = New OleDbCommand("select count(date) as amount,date from somestuff where date not like( SELECT TOP 1 date FROM somestuff ORDER BY date DESC) group by date order by date desc", ObjConn)
            ObjConn.Open()
            ObjReader = ObjCmd.ExecuteReader(CommandBehavior.CloseConnection)
            If ObjReader.HasRows() Then
                Repeater1.dataSource = objReader
                Repeater1.databind()
            Else
                Response.Write("non in DB")
            End If
        Catch ex As Exception
            'handle error
        Finally
            ObjReader.Dispose()
            ObjReader.Close()
            ObjConn.Dispose()
            ObjConn.Close()
        End Try
    End Sub

Jeg ved at hvis jeg bare laver en med Response.Write så virker det men ville godt (med tiden) kunne bruge den til en Repeater også.