'Kör första RS
Set RS = New ADODB.Recordset
RS.Open SQL, Conn,......
' gör någonting
RS.Close
Set RS = Nothing

'Kör andra RS
Set RS = New ADODB.Recordset
RS.Open SQL, Conn,......
' gör någonting
RS.Close
Set RS = Nothing

Ovan är inte nödvändigt, ADO låter dig återanvända ett recordset hur mycket du vill, bara man stänger det först.

Modifera ovan kod så att det ser ut så här:

Set RS = New ADODB.Recordset
' kör första RS
RS.Open SQL, Conn,......
' Gör någonting med RS
RS.Close

'kör andra RS
RS.Open SQL, Conn,.....
' gör någonting med RS
RS.Close
Set Rs = Nothing

Tips från Element K Journals' Inside Visual Basic