Ok.. podría quedar así.
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\ruta\bd.mdb;"
o le pones la cadena de conexion correspondiente (la que te puse es para Access)
rst.Open "SELECT * FROM tu_tabla", cnn, adOpenDynamic, adLockOptimistic
...
....
y para ´cargar tu imágen podrías poner.
Cita: Image1.Picture = LoadPicture(rst.Field("ruta"))
'cierras tu conexion
cnn.close
'cierras tu recordset
rst.close
Saludos
rst.Fields("Au_ID")