Selection String still applied to Recordset

[jcfowl]

2 programers have 2 different ways of opening recordsets.

1st way - retrieve 1 record to Update

With DataEnvironment1.rstblLabs
        If .State = adStateOpen Then .Close
        .Open "SELECT * FROM tblLabs WHERE pkLab = " & p_pkLab, _
                , adOpenStatic, adLockOptimistic

2nd way - retrieve all records to fill a combobox
after the 1st way has already happened

With RS
        If Not .State = adStateOpen Then
            .Open , , adOpenStatic, adLockOptimistic

When the second query to this table is executed the only
record retrieved is the one from the 1st query. Is there any
way to clear out the selection string from the 1st query and
just retrieve all the records without passing a new selection
string? This code is everywhere in the program so a major
code change would be good to avoid.

[jcfowl]

Is there a way (a property on the command object or the
DataEnvironment) to force VB to query the Database and
return all records on the .Open command if no selection
string is specified????

[jcfowl]

Please view the comments in the code below:

'I send a Selection String with this statement
With DataEnvironment1.rstblHealthProfile
.Open "SELECT * FROM tblHealthProfile WHERE 1 <> 1", , adOpenStatic, adLockOptimistic
 
' The .Source property of the recordset now holds that selection
' string until another is issued. So the .Open method will send the
' same query next time it is executed. The statement below
' initialized the recordset (along with all other recordsets).
Set DataEnvironment1 = Nothing
' Next time the recordset is opened the .Source is reset to
' select * from "dbo"."tblHealthProfile"

Is this a solid solution?? Is this proper procedure and good coding
to intialize the Dataenvironment like this??

My co-workers say that it is the same as deallocating memory but
I am under the impression that this is the same as setting an
Integer value equal to 0. The solution works but are there any
downfalls???