QDefs return different results

[lrfcbabe]

Private Function Get_Query(QName As String)
Dim Q As QueryDef
Dim db As Database
Dim rs As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase(strDBname)
Set Q = db.QueryDefs(QName)
Set rs = Q.OpenRecordset()
Set frmMain.Data1.Recordset = rs
End Function

this QDef function when run from VB6 only returns about half of the records that it does if i had run it from Access. Any suggestions.