How to add picture on vb-access? how to save? how to retrieve?

[bobykuriakose12]

Dear sir,

i am a student,i do one sample project in vb.6 and access 2003.i designed one form for students entry,name and address, etc,this details are saved in database and retrive in my choice.
but i have plan to insert student pictrue in my 'students entry form'.i have no idea about this picture insertation.can u please help me, how to insert pictrue,how to stored in database,how to retrive photo on my search command.

i also attached my source code,module source code and screen shot of form.

yours faithfully
boby kuriakose



----------------------------------SOURCE CODE ENTRY FORM---------------------------------

Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim rs5 As New ADODB.Recordset
Dim i As Integer
Dim sngDailyRate As Single
Dim sngNumberOfDays As Integer
Dim sngHireCost As Single
 
Dim strLastName As String * 20
Dim strFirstName As String * 20
Dim s As String
Dim sql As String
 
Private Sub cmdadd_Click()
 cmddelete.Enabled = False
cmdadd.Enabled = True
cmdedit.Enabled = False
cmdsave.Enabled = True
cmdsearch.Enabled = True
 txtregno.Text = ""
 
End Sub
 
Private Sub cmddelete_Click()
 
If rs3.State Then
   rs3.Close
End If
 
 sql = "delete  from studentdetails where regno=" & Int(txtregno.Text) & ""
 rs3.Open sql, cn, adOpenKeyset, adLockOptimistic
txtregno.Text = ""
 
     DTPlearfrom.Enabled = False
     DTPlearto.Enabled = False
     MsgBox "DATA SUCCESS TO DELETE"
End Sub
 
Private Sub cmdedit_Click()
cmddelete.Enabled = False
cmdadd.Enabled = True
cmdedit.Enabled = False
cmdsave.Enabled = True
cmdsearch.Enabled = True
txtregno.Enabled = True
 
End Sub
 
Private Sub cmdsave_Click()
If rs4.State Then
   rs4.Close
End If
 
 sql = "delete  from studentdetails where regno=" & Int(txtregno.Text) & ""
 rs4.Open sql, cn, adOpenKeyset, adLockOptimistic
 
If rs.State Then
   rs.Close
End If
 
 sql = "select * from studentdetails where regno=" & 0 & ""
 rs.Open sql, cn, adOpenKeyset, adLockOptimistic
   If rs.RecordCount = 0 Then
   With rs
 
.AddNew
    !RegNo = txtregno.Text
 
    End If
 
    MsgBox "DATA SUCCESS TO SAVE"
 
    .Update
    End With
End If
txtregno.Text = ""
  txtlearnearsno.Text = ""
 
End Sub
 
Private Sub cmdsearch_Click()
 MSFlexGrid1.Rows = 1
MSFlexGrid1.Visible = True
If rs5.State Then
   rs5.Close
End If
 
i = 1
MSFlexGrid1.TextMatrix(0, 0) = "RegNo"
         MSFlexGrid1.TextMatrix(0, 1) = "NAME"
If Optname.Value = True Then
sql = "select * from studentdetails where name like '" & "%" & Trim(txtsrchname.Text) & "%" & "'"
 rs5.Open sql, cn, adOpenKeyset, adLockOptimistic
   While Not rs5.EOF
        MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
         MSFlexGrid1.TextMatrix(i, 0) = rs5.Fields!RegNo
         MSFlexGrid1.TextMatrix(i, 1) = rs5.Fields!Name
 
         rs5.MoveNext
        i = i + 1
 
        Wend
  End If
End Sub
 
Private Sub Form_Load()
Optname.Value = True
txtsrchname.Enabled = True
cmddelete.Enabled = False
cmdadd.Enabled = True
cmdedit.Enabled = False
cmdsave.Enabled = False
cmdsearch.Enabled = True
MSFlexGrid1.ColWidth(0) = 0
MSFlexGrid1.Visible = False
 
 
 
End Sub
 
 
 
Private Sub MSFlexGrid1_DblClick()
Frame3.Visible = False
cmdedit.Enabled = True
cmddelete.Enabled = True
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdsearch.Enabled = True
MSFlexGrid1.Visible = False
If rs2.State Then
   rs2.Close
End If
 
 sql = "select * from studentdetails where regno=" & Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)) & ""
 rs2.Open sql, cn, adOpenKeyset, adLockOptimistic
   If rs2.RecordCount > 0 Then
   With rs2
 
 
   txtregno.Text = .Fields!RegNo
 
 
 
 
    End With
End If
txtregno.Enabled = False
 
End Sub
 
 
--------------------MODULE SOURCE CODE------------
 
Option Explicit
Global cn As New Connection
Public Sub open_connection()
End Sub
 
Public Sub Main()
If cn.State Then cn.Close
cn.Open "microfox", "t", "a26yo1a01i0oo8Qr5ty51w521bipa"
frmSplash.Show
End Sub