gistfile1.vb

Private Sub Form_Load()
'Apply Graphics.
Form_Paint
'2-Connect to Database
If CN.State = 1 Then CN.Close
CN.Open ("Provider = Microsoft.Jet.OleDB.4.0 ; Data Source =" & App.Path & "\MyBook.Mdb")
'3)Connect Table Phones
If RS.State = 1 Then RS.Close
RS.CursorLocation = adUseClient
RS.Open ("Select * From Phones"), CN, adOpenDynamic, adLockOptimistic
'5)MyPic, if no other photo has been picked then this is the default picture.
PicNm = App.Path & "/Phone1.Jpg"
Timg.Picture = LoadPicture(PicNm)
End Sub