Base de datos de cámara web problema

Tengo una base de datos que me descargue de internet la cual es para hacer capturas de la web cam quise probrarla pero me salio un error y no se como hacer para poder usarla me gustaría compartirla para ver si me pueden ayudar aunque no se como hacerlo en cualquier caso la parte del código que me da error es este

Private Sub Form_Open(Cancel As Integer)
Dim lpszName As String * 100
Dim lpszVer As String * 100
Dim Caps As CAPDRIVERCAPS
Me.ArchivoNombre = Forms!Clientes!NombreCompañía
capGetDriverDescriptionA 0, lpszName, 50, lpszVer, 50
lwndC = capCreateCaptureWindowA(lpszName, WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD, 0, 0, 160, 120, Me.hwnd, 0)
SetWindowText lwndC, lpszName
CapSetCallbackOnStatus lwndC, AddressOf MyStatusCallback
capSetCallbackOnError lwndC, AddressOf MyErrorCallback
If capDriverConnect(lwndC, 0) Then
capDriverGetCaps lwndC, VarPtr(Caps), Len(Caps)
capPreviewScale lwndC, True
capPreviewRate lwndC, 66
capPreview lwndC, True
ResizeCaptureWindow lwndC
End If
End Sub

Y dice que no coinciden los tipos

Si alguien quiere verla la puedo compartir por email