Erro Para Acessar Banco Access

[Guest Bizonho]

Oi pessoal !

Estou usando esta rotina para acessar um banco em Access.

----------------

filePath = Server.MapPath("db\base.mdb") & ";Uid=Admin;Pwd=senha;"

strID= "1"

'request.form("id")

set cn = server.createObject("ADODB.Connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

strQ = "SELECT COUNT(chave) as TOTAL from lotes"

Set rs=cn.Execute (strQ)

response.write "&fim=" & rs("TOTAL") & "&"

strQ="SELECT * From lotes where id=" & "'" & strID & "'" &""

Set rs=cn.Execute (strQ)

'Do While Not rs.EOF

If rs.BOF = True Then

rs.Close

---------------------------------------------

quando eu executo o script tá dando este erro:

---------------------------------------------

Microsoft JET Database Engine (0x80004005)

Não foi possível encontrar ISAM instalável.

/pasta/consulta.asp, line 19

--------------------------------------------

alguém saberia me dizer onde estou errando.

Agradeço a atenção.

Bizonho

[jothaz]

Camarada,

Tenta aqui http://support.microsoft.com/kb/209805/pt-br talveez dê uma luz.

t+