Visual Basic para Aplicaciones - guardar imagen a BD

Hola a todos tengo un problema al mandar a guardar un imagen en mi base de datos de access desde visual Basic. me manda este erro: Tipo Incorrecto Aquí esta el codigo para explicarles mejor

Esta funcin mando a llamar al cuadro de dialogo
Private Function ShowFileDialog() As String
Dim ofn As OpenFilename
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = hWnd
ofn.lpstrFilter = "JPEG, GIF, BMP" & Chr$(0) & "*.jpg;*.gif;*.bmp" & Chr$(0) & Chr(0) & Chr(0)
ofn.lpstrFile = String(256, 0)
ofn.nMaxFile = 255
ofn.lpstrTitle = "Abrir Archivo de Imagen"
ofn.Flags = &H800000 + &H1000 + &H8 + &H4
ofn.lpstrDefExt = "png" + Chr(0)
GetOpenFileName ofn
If Mid(ofn.lpstrFile, 1, 1) <> Chr(0) Then ShowFileDialog = ofn.lpstrFile
End Function

Esta boton me sirve para abrir el cuadro de dialogo y mandar a cargar mi imagen al Picture
Private Sub Command1_Click()
Dim filename As String
filename = ShowFileDialog
If filename <> "" Then
Picture1.Picture = LoadPicture(filename)
End If
'Unload Me
End Sub

Aqui intento guardar la imagen que tengo en el picture
Pero entonces me manda el error : Tipo Incorrecto
Private Sub Command2_Click()
rs.Open "SELECT * FROM tabla", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!photo = Picture1.Picture
rs!ID = Text1.Text
rs.Update
rs.Close
End Sub

Y si intento Guardar la imagen directamente al cargarla en el picture.
Private Sub Command1_Click()
Dim filename As String
rs.Open "SELECT * FROM tabla", cn, adOpenDynamic, adLockOptimistic
rs.AddNew
filename = ShowFileDialog
If filename <> "" Then
Picture1.Picture = LoadPicture(filename)
rs!photo = filename

End If
rs.Update
rs.close
End Sub me manda este error La operacion de multiples pasos OLE DB genero Errores. Compruebe los estados de ELO DB si es posible. Y las referencias de OLE automatica, DAO, Active Data Object estan activadas. No se si tendre que configurar algo en mi equipo Nesecito ayuda todas las posibles maneras que pudeda funcionar. se los agradecere muchisismo