io in genere con oledb creo una variabile di tipo oledbdatareader
dim areader as OleDbDataReader e chiudo questa anziche la connessione

Esempio pratico:


Dim objCommand As New OleDbCommand(strsql2, objConn)
areader = objCommand.ExecuteReader()
areader.Close()

spero di aver capito quello che chiedevi