gistfile1.vb

Private Sub Form_Activate()
'connection for Holding the photo stream.
If Rs_Stream.State = adStateOpen Then Rs_Stream.Close
End Sub

Private Sub Form_Load()
'Display.frm code
Form_Paint
'Load friends from Database Table into ListBox control.
    'Database is already connected as we did not terminate
    'the main form (MainFrm)
        'Open Table
            If RS.State = 1 Then RS.Close
                RS.CursorLocation = adUseClient
                    RS.Open ("Select * From Phones"), CN, _
                              adOpenDynamic, adLockOptimistic
        'Check for Data
                If RS.RecordCount = 0 Then Exit Sub
        'Prepare the ListBox Control
            LstFrnds.Clear
                RS.MoveFirst
                    Do Until RS.EOF = True
                        LstFrnds.AddItem Trim$(RS!Fname)
                        RS.MoveNext
                    Loop
PicNm = ""
'Next step is to retrieve each friend's Data assigned to the name 
'in the listbox into the (Img, Name, Mobile, Phone) controls,
'2) LstFrnds.Click event is next
End Sub