Sub Camera1_PictureTaken (Data() As Byte)
camera1.StartPreview
Dim out As OutputStream
out = File.OpenOutput(strFilePath, strFileName, False) 'strFilePath and strFileName is predefined.
out.WriteBytes(Data, 0, Data.Length)
out.Close
'convert Image to string
Dim B64Str As String
B64Str = Base64Con.EncodeFromImage(CaminhoExportar, strNomeArquivo)
dbSQL.ExecNonQuery("UPDATE tbl_image Set Image = '" & B64Str & "' WHERE ID_image = " & intImageCode) 'intImageCode is predefined.
End Sub