I am using below mentioned code to take a snap using web cam, but the code is throwing the runtime error -2147467263 not implemented

in using this code in MS Access 2010 n my operation system is windows 7 64bit.
Public Sub PickClick()
On Error GoTo Err_Command0_Click

Dim mydevice As WIA.Device
Dim item As WIA.item
Dim Commondialog1 As WIA.CommonDialog
Set Commondialog1 = New CommonDialog
Set mydevice = Commondialog1.ShowSelectDevice

If mydevice.Type = CameraDeviceType Then
MsgBox "DeviceID" & mydevice.Type

item = mydevice.ExecuteCommand(wiaCommandTakePicture)
End If
    Exit Sub

    MsgBox Err.Description
    Resume Exit_Command0_Click
End Sub