Hello, I am running a query that connects to an SQL database and I was wondering if there is a way to speed up my query. Below is a snippet of my current code.

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn = "DSN=SYBASE;Database=xxxx;UID=xxxx;PWD=xxxx;"
cn.Open

For Each cell In MyRange
SQLquery = "My query"
rs.Open SQLquery, cn, adOpenForwardOnly, adOpenStatic
Next cell