Используя Data Environment:
Создаем Command1
Конструируем запрос, где надо ставим параметр (? - в столбик Criteria)
В коде: Call DataEnvironment1.Command1(Список занчений параметров)
Пользуемся рекордсетом rsCommand1
то-же - для другой Command

Если надо использовать rsCommand1 после разрыва подключения, назначить ему LockType = adBatchOptimistic

Можно все в коде. но труднее.

Пример можно создать самому:

1. Создаем новый проект в VB6 (тип - "DataProject")
2. Находим DataEnvironment (для простоты лучше сразу переименовать его в DE1)
3. Открываем свойства Connection1 и настраиваем подключение (SQL-Server, “Northwind”)
4. Создаем объект Command (ищем там конструктор запроса). Или просто в SQL Statement кидаем
SELECT CustomerID, CompanyName FROM Customers WHERE (CompanyName LIKE ?)
5. В форме frmDataEnv создаем кнопку.
6. Обработчик кнопки:

Private Sub Command1_Click()
Dim s As String
If DE1.Connection1.State = adStateClosed Then DE1.Connection1.Open
Call DE1.Command1("A%")
s = ""
Do Until DE1.rsCommand1.EOF
s = s & DE1.rsCommand1.Fields(1) & "" & vbCrLf
DE1.rsCommand1.MoveNext
Loop
MsgBox s
If DE1.rsCommand1.State = adStateOpen Then DE1.rsCommand1.Close
Call DE1.Command1("B%")
s = ""
Do Until DE1.rsCommand1.EOF
s = s & DE1.rsCommand1.Fields(1) & "" & vbCrLf
DE1.rsCommand1.MoveNext
Loop
MsgBox s
If DE1.Connection1.State = adStateOpen Then DE1.Connection1.Close
End Sub

Запускаем, убеждаемся, что работает

Private Sub Form_Load()
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=SERVER0" 'SERVER0 - имя MS SQL Server
cm.CommandText = "SELECT CustomerID, CompanyName FROM Customers WHERE (CompanyName LIKE ?)"
cm.ActiveConnection = conn
End Sub

Private Sub Command1_Click()
Dim s As String
If conn.State = adStateClosed Then conn.Open
Set rs = cm.Execute(, "A%")
s = ""
Do Until rs.EOF
s = s & rs.Fields(1) & "" & vbCrLf
rs.MoveNext
Loop
MsgBox s
If rs.State = adStateOpen Then rs.Close
Set rs = cm.Execute(, "B%")
s = ""
Do Until rs.EOF
s = s & rs.Fields(1) & "" & vbCrLf
rs.MoveNext
Loop
MsgBox s
End Sub

Magnus23Я бы рекомендовал DE не использовать. Глючная и противная штука чреватая проблемами.
Что за проблемы?
Кроме как при создании инсталляции проблем не встречал. А вот чтобы изучить ADO - отличная штука.
Ну а о том, чтобы в коде... да, сам часто создаю rs в коде, но тогда, когда SQL очень простой или на оборот слишком сложный.

marvan, а какой-нибудь броузер БД (или навигатор) используешь, или все помнишь?
А если да, то наверно там есть и построитель запросов, и анализатор, etc.?
Для начинающих (и не только 8й) пойдет и DE.
Data контрол... согласен, кроме как навигатора по записям ни для чего больше не годтся. Да и навигатр сегодня выглядит архаично. лучше вместо него - табличка.