Scanner error AYuda Urgente
 

Yo tengo este codigo que me escanea una credencial y estaba jalando bien, incluso me enviava los datos seleccionados a un crystal, pero de pronto me mando este error "There are not TWAIN data sources available.Please reisntall scanner software".....y al depurar me manda en la linea :
ImgScan1.StartScan y ya no hace nada ......Entonces desinstale el scancar 6.0 y lo instale nuevamente pero me dice que se necesita configurar...y no se como.....si me podrian decir como configuro el scan para que jale con el visual o si asi como tengo el codigo esta bien......Porfavor si alguen sabe que es diganme

Private Sub Command1_Click()
Dim Acepta As String

'Escaneo de la credencial de lector
fileNombre = App.Path & "\Imagenes\Identifica.bmp"


'Si existe el archivo bmp, eliminalo de lo contrario

Set f = New FileSystemObject
If f.FileExists(fileNombre) Then
f.deletefile (fileNombre)
End If

ImgScan1.PageOption = PromptToCreateNewFile
ImgScan1.Image = fileNombre
ImgScan1.ShowSetupBeforeScan = False
ImgScan1.Zoom = 40
ImgScan1.GetPageTypeCompressionType TrueColor24bitRGB

ImgScan1.OpenScanner
ImgScan1.FileType = BMP_Bitmap

ImgScan1.StartScan
If f.FileExists(fileNombre) = False Then
Acepta = MsgBox("No hay credencial que escanear", 273, "Verifique")
Else
ImgScan1.CloseScanner
ImgThumbnail1.Image = fileNombre
ImgScan1.PageOption = CreateNewFile
ImgEdit1.Image = fileNombre
OCRdata
End If