OLEDB

[Rolf]

Hallo

Ich bin totaler Anfänger und "versuche meinen Cod" zu verstehen, der mir leider immer einen Fehler 80004005 generiert. Ich komme einfach nicht weiter. Das Ziel ist es, eine DB-Vervindung ohne SystemDNS zu erstellen:
<%
set myConn = CreateObject("ADODB.Connection")
myConn.Provider="Microsoft.Jet.OLEDB.4.0"
myConn.ConnectionString="Mode=ReadWrite;"
Pfad="DATA SOURCE=" & Server.MapPath("/master/db/datenbank") & "\daten.mdb;"
myConn.open Pfad
%> <font color="#FF0000">Folgender Pfad</font>: <%response.Write(Pfad)
set rs=myConn.Execute("select * from input")
if rs.eof then
%>
Keine Daten gefunden
<%
else
do while not rs.eof
Response.Wreite(rs("Vorname")& "<br>")
rs.move.Next
loop
end if
rs.Close
set rs = nothing
myConn.Close
Set myConn= Nothing
%>