Matriz picturebox con consulta sql

[rpm]

Muchas gracias funciona perfecto, me acomoda los controles y todo bien
pero yo jalo las fotos de un recordset y cuando lo trato de ejecutar, me cierra el vb, yo lo hago asi:

Set rs6 = New ADODB.Recordset
rs6.Open ("select campo from tabla"), conexion, adOpenStatic, adLockOptimistic

X = 0
Do Until rs6.EOF
X = X + 1
Load Picture1(X)
With Picture1(X)
.Top = Picture1(X - 1).Top + 1600
.Visible = True
.Picture = LoadPicture("C:\" & rs6!campo)
rs6.MoveNext
End With
Loop

ojala que me puedas ayudar