Can anyone tell me if there is anything wrong with this bit of code I am using to return a resultset asynchronously?

.Open strSQL, GetConnection, adOpenForwardOnly, adLockOptimistic

--get connection :
Private Function GetConnection() As ADODB.Connection
Dim strConnection As String

If madoConn Is Nothing Then
Set madoConn = New ADODB.Connection
strConnection = "Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" _
& mstrDSN & ";Data Source=" & mstrServer
madoConn.Open strConnection
End If

Set GetConnection = madoConn

End Function


I keep getting eof as true when I check after the rst has been opened, and I know there is data there for the query I am sending through??????!!
This is major hassle PLEASE HELP!!!!!