Visual Basic - Insertar imagenes

Buenas...
tengo una base de datos en access, la cual cuenta con una tabla "TECNICOS", con un campo "FOTO", lo que deseo hacer es guardar la foto del personal en ese campo, he buscado en internet algunos ejemplos, pero la mayoria de ejemplos solo guardan la ruta y nombre de la imagen, o primero agregan un registro y luego actulizan, Ejemplo

rs.addNew(para agregar un registro en la base de datos)

rs.update (para actulizar)

el campo "FOTO" es del tipo "Objeto OLE"

el tipo programacion q uso es por codigo:

Set cmgraba = New ADODB.Command
With cmgraba
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "insert into persona(nombre,apellido,fono1,fono2,direc,sw_estado,idguardia) " & _
"values (?,?,?,?,?,'A',?)"
.Parameters.Append .CreateParameter("nombre", adVarChar, adParamInput, 65, txtnombre.Text)
.Parameters.Append .CreateParameter("apellido", adVarChar, adParamInput, 65, txtapellido.Text)
.Parameters.Append .CreateParameter("fono1", adVarChar, adParamInput, 10, IIf(txtfono1.Text = "", "NINGUNO", txtfono1.Text))
.Parameters.Append .CreateParameter("fono2", adVarChar, adParamInput, 10, IIf(txtfono2.Text = "", "NINGUNO", txtfono2.Text))
.Parameters.Append .CreateParameter("direc", adVarChar, adParamInput, 95, IIf(txtdirec.Text = "", "NINGUNO", txtdirec.Text))
.Parameters.Append .CreateParameter("idguardia", adVarChar, adParamInput, 95, cboGuardia.Tag)
.Execute
End With

si alguien sabe como guardar imagenes de esta forma, por favor espero su ayuda.

Gracias