Dim ws As Workspace
    Dim cn As Connection
    Dim strSQL As String
    Dim qd As QueryDef
    Dim rs As Recordset
    
    Set ws = CreateWorkspace( "ODBCWorkspace" ,  "admin" ,  "", dbUseODBC)
    Set cn = ws.OpenConnection(" Store ", dbDriverNoPrompt, False, _
    " ODBC;DSN=Store;DATABASE=Store;Network=DBMSSOCN;Trusted_Connection=Yes ")
    
    strSQL = " SELECT * FROM dbo.Products WHERE Category_id = (?) "

    Set qd = cn.CreateQueryDef("  ", strSQL)

    qd.Parameters(0 ).Direction = dbParamInput
    qd.Parameters( 0 ) = " 7 "

    Set rs = qd.OpenRecordset(dbOpenSnapshot)
    
    MsgBox rs.RecordCount
    
    rs.Close
    cn.Close
    ws.Close