InputBox ---Run time error

[Paluccie]

I am receiving a run time error on the line specified below when clicking cancel. Everything else works fine but that.

Dim num As Integer, used As String,
Dim access As Single, prompt As String, title As String, password As Single
prompt = "Enter password for override"
title = "Password Override"
Open "c:\counts\password.txt" For Input As #1
Do While Not EOF(1)
Input #1, password
Loop
access = InputBox(prompt, title) --------this line has error
If access = password Then
DoCmd.GoToRecord , , acNext
Else
MsgBox "Invalid Password", vbOKOnly
End If

[VHockey86]

This is what... VB6? VB.net?

[Paluccie]

i'm using this in access so vb version really doesn't matter here. concept is still the same