Botones Dinamicos

[snowdogs]

Hice lo siguiente pero ahora no me muestra ni siquiera los botones:

Código vb:

Dim tabla As OdbcDataReader
                Dim conex As New Conexion
                tabla = conex.consultar("select logro  from logros")
     
     For i = 1 To totalLogros
               
    ReDim BotonEquipo1(totalPartidos, i)
                    BotonEquipo1(totalPartidos, i) = New Button
                    BotonEquipo1(totalPartidos, i).Text = tabla.GetValue(i - 1)
                    BotonEquipo1(totalPartidos, i).Size = New Size(33, 20)
                    BotonEquipo1(totalPartidos, i).Location = New Point(x, 20)
                    Partidos(totalPartidos).Controls.Add(BotonEquipo1(totalPartidos, i))
         
                    ReDim BotonEquipo2(totalPartidos, i)
                    BotonEquipo2(totalPartidos, i) = New Button
                    BotonEquipo2(totalPartidos, i).Text = tabla.GetValue(i - 1)
                    BotonEquipo2(totalPartidos, i).Size = New Size(33, 20)
                    BotonEquipo2(totalPartidos, i).Location = New Point(x, 55)
                    Partidos(totalPartidos).Controls.Add(BotonEquipo2(totalPartidos, i))
         
                    x = x + separacion
         
                Next
 

Lo unico que hice fue cambiar la consulta LOGRO es donde estan los textos cada registro es el nombre de 1 boton y LOGROS es la tabla..