Help to Convert this code to access 2010

[noselbond]

I am trying to convert access2.0 database to access2010.
2 days trying to recode this to run in access 2010 but no success.

Global Const CONNECT_SQL = "ODBC;DSN=PCGINV;DATABASE=pcginv;UID=;PWD="
Global gqdfTemp As QueryDef
Global grecSQL As Recordset

Sub GetSQL(strSQL As String)
On Error GoTo Err_GetSQL

    Dim db As Database

    Set db = DBEngine(0)(0)
    Set gqdfTemp = db.CreateQueryDef("")

    gqdfTemp.Connect = CONNECT_SQL
    gqdfTemp.ReturnsRecords = True
    gqdfTemp.SQL = strSQL

    Set grecSQL = gqdfTemp.OpenRecordset()

    gqdfTemp.Close

Exit_GetSQL:
    Exit Sub

Err_GetSQL:
    MsgBox Error$
    Resume Exit_GetSQL

End Sub