Providern hittas inte

Jag får ett fel med denna kod:

<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath("DBPath/"))
Set Read = FSO.OpenTextFile(Server.MapPath("DBPath/DB_Path.txt"), 1, False, False)
DBPath = Read.ReadLine

Set Read = Nothing
Set Folder = Nothing
Set FSO = Nothing

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Set RS = Conn.OpenSchema(28)
Do Until RS.EOF
	If RS("Table_Name") = Request.QueryString("Tabell") Then
		PrimaryColumn = RS("Column_Name")
	End If
	RS.MoveNext
Loop

If Len(Request.QueryString("Tabell")) > 0 Then
	Set RSTyp = Conn.Execute("Select " & PrimaryColumn &" From " & Request.QueryString("Tabell"))
	PrimaryColumnDataType = RSTyp(PrimaryColumn).Type	
End If
%>

felet jag får är:
den angivna providern kunde inte hittas.
Vad gör jag för fel??
jag kör win 98 med PWS