Spanish como mostrar imágenes de una base de datos ?

Sub Globals
    Dim h As HttpJob
    Dim json As JSONParser
End Sub

Sub Activity_Create(FirstTime As Boolean)
h.initialize("json", Me)
h.Download2("www.", Array As String("iNumCtr", 10131, "iLtrRpz", "", "iFlgEst", 1))
end sub

Sub JobDone(job As HttpJob)
       If job.Success Then
               json.Initialize(job.GetString)
               CargarImagen
       Else
              Msgbox("Falla la conexión a internet", "")
       End If
End Sub

Sub CargarImagen
    Dim m As Map
    m=json.NextObject    
    Dim data As List
    data=m.Get("data")

For i=0 To data.Size-1
    Dim f As String
     f = m.Get("app_rta_fto")   ''este es la ruta de mi imagen
Next

End Sub

    Bitmaps.Initialize
    Dim files As List
    files.Initialize()
  
    imagesFolder = File.DirAssets

    files = File.ListFiles(imagesFolder) 'obtener todos los archivos de esta carpeta
  
    For i = 0 To files.Size - 1
        DoEvents 'requerido para la animación ProgressDialog
        Dim f As String
        f = files.Get(i)
        If f.ToLowerCase.EndsWith(".jpg") Then

            Dim b As Bitmap
            b.InitializeSample(imagesFolder, f, 500dip, 500dip) 'cargar el archivo JPEG y submuestras que si es demasiado grande.
            Bitmaps.Add(b) 'añadir el mapa de bits en la lista de mapas de bits .
            If Bitmaps.Size > 50 Then Exit 'limitarlo a 50 imágenes
        End If
    Next
    ToastMessageShow("Encontró " & Bitmaps.Size & " Imágenes", True)

Sub CargarImagen
    Dim m As Map
    m=json.NextObject   
    Dim data As List
    data=m.Get("data")

For i=0 To data.Size-1
    Dim f As String
     f = m.Get("app_rta_fto")   ''este es la ruta de mi imagen
Next

End Sub

Sub CargarImagen
    Dim m As Map
    m=json.NextObject   
    Dim data As List
    data=m.Get("data")

For i=0 To data.Size-1
    Dim f As String
    ' f = m.Get("app_rta_fto")   ''este es la ruta de mi
    Dim ImageJob as HttpJob
    ImageJob.Initialize("Image",Me)
    ImageJob.Download(m.Get("app_rta_fto"))
Next

End Sub

MiBitmap.Bitmap=Job.GetBitmap

MiBitmap.Bitmap=Job.GetBitmap

Sub JobDone(job As HttpJob)
     json.Initialize(job.GetString)
       If job.Success Then
           Select job.JobName
            Case "json"
               CargarImagen
            Case "Image"
           
        End Select 
       Else
               Msgbox("error", "")
       End If
End Sub