problemer med forbindelse

Jeg har denne kode, som virker fint:


<%@ Language=VBScript %>

<%

If Request.Form("Action") = "Login" Then
   
    strID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
    strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))

   
    If Len(strID) > 0 And Len(strPWD) > 0 Then


        Set database = Server.CreateObject("ADODB.Connection")
        database.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../Kalender.mdb")
       

strSQL = "SELECT * FROM User WHERE (Username = '" & strID & "') AND (Password = '" & strPWD & "')" 


        Set rs = database.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
           
            intID = rs("ID")
        Else
           
            strERR = "  <strong> Login Fejl</STRONG> <br>Dit brugernavn og din adgangskoe stemmer ikke overens."
        End If

       
        database.Close
        Set database = Nothing


'----------------- osv osv osv-----------------

Jeg ønsker denne forbindelse

Set database = Server.CreateObject("ADODB.Connection")
database.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Mappe1\Mappe2\db\kalender.mdb"

og har forsøgt på alverdens måder - uden held. Det går til linien: Set rs = database.Execute(strSQL)
og her får jeg så fejlmelding på From-sætningen?!

Hvordan skal jeg få etableret forbindelsen som jeg ønsker det?