Trying to create a querydef in an access 2000 database with vb.net

    Dim acapp As New Access.Application
        Dim strName As String = "Query1"
        Dim strSQL As String = "SELECT Div, ReportDate, theDesc, Sum(Unit) AS SumOfUnit, Sum(Total) AS SumOfTotal " & _
        "FROM unionReconciliationPKMSWSSR_Report " & _
        "GROUP BY Div, ReportDate, theDesc " & _
        "HAVING (((ReportDate) Between #4/25/2005# And #5/1/2005#)) " & _
        "ORDER BY Div, ReportDate, theDesc;"

        Dim qdfTemp As DAO.QueryDef


        With acapp
            .OpenCurrentDatabase(cdir & "\WSSR_PKMS_Balancing.mdb")

            qdfTemp = DAO.Database.CreateQueryDef()

            qdfTemp.Name = strName
            qdfTemp.SQL = strSQL

            DAO.QueryDefs.Append(qdfTemp)

            CreateNewQuery = qdfTemp

        End With

I am getting the following error:

reference to a non-shared member requires an object reference