Es una solución, pero no como la quería..
Hasta aquí lo he hecho sin problemas
Dim myPerro As New Perro
myPerro.Cantidad() 'Cantidad de perros en la base de datos
myPerro.Perro(254).Nombre 'Nombre del perro cuyo id es 254
myPerro.Agregar("Pedro","boxer",1) 'Agrega un perro más a la base de datos
Lo que no me gusta es la manera de agregar a un perro. es decir me gustaría cambiar esto:
Dim myPerro As New Perro
myPerro.Agregar("Pedro","boxer",1) 'Agrega un perro más a la base de datos
por este otro que se ve mas bonito:
Dim p As Perro
.Nombre = "Pedro"
.Raza= "Boxer"
.Edad = 1
End With
dim Perros As New Perros
Perros.Agregar(p)