Dim arrImageByte() As Byte
    Dim fNum As Integer
    
    Dim rs As New ADODB.Recordset
    Dim strPhotoPath As String
    Dim isImage As Boolean
    If Me.imgPhoto.Picture <> LoadPicture("") Then
        SavePicture Me.imgPhoto.Picture, App.Path & "\tmpphoto.jpg"
        strPhotoPath =

Private Sub Command1_Click()
 Dim pic As StdPicture
dlgPicture.Filter = "Pictures (*.bmp;*.jpg)|*.bmp;*jpg|"
dlgPicture.ShowOpen
filen = dlgPicture.FileName
Picture1.Picture = LoadPicture(filen)
End Sub

Dim DataEnvironment1 As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim subs As String

On Error Resume Next
    DataEnvironment1.ActiveConnection = con
    DataEnvironment1.CommandText = "select sum(Paid) from Payment"
    rs.Open DataEnvironment1,