[RESOLVED] how to add & save pic to access with vb 6

[salsa31]

hello
i did a project in vb 6 with customers
and i cannot figure out how to add & save picture to access.
i search the web but no luck
hope you pro guys can help me
this is the code for the saving customers.
****************************************

Dim NewID As Long
NewID = NextID("ID", "Customers")
CN.Execute "INSERT INTO Customers (ID, FullName, Address, DateBirth, Facebook, Email, Phone, Cellular, HairColour, Oxygen) VALUES (" & _
NewID & ", '" & _
RplS(Txt(1).Text) & "', '" & _
RplS(Txt(2).Text) & "', #" & _
MyDate(PckBirth.Value) & "#, '" & _
RplS(Txt(4).Text) & "', '" & _
RplS(Txt(5).Text) & "', '" & _
RplS(Txt(6).Text) & "', '" & _
RplS(Txt(7).Text) & "', '" & _
RplS(Txt(8).Text) & "', '" & _
CmbOxygen.Text & "')"

Set Itm = LsVw.ListItems.Add(, , Txt(1).Text)
Itm.Tag = NewID
Itm.Bold = True
Itm.SubItems(1) = Txt(2).Text
Itm.SubItems(2) = Format(PckBirth.Value, "dd/mm/yyyy")
Itm.SubItems(3) = Txt(4).Text
Itm.SubItems(4) = Txt(5).Text
Itm.SubItems(5) = Txt(6).Text
Itm.SubItems(6) = Txt(7).Text
Itm.SubItems(7) = Txt(8).Text
Itm.SubItems(8) = CmbOxygen.Text
Itm.EnsureVisible
Itm.Selected = True
StBar.Panels(2) = Format(LsVw.ListItems.Count, "#,###0")

If ChkRepeat.Value Then
ClearDetails
Txt(1).SetFocus
Exit Sub
End If
TmrClose.Enabled = True
*******************************
im using a toolbar for this
tnx in advanced