Visual Basic - pasar a un recordset la informacion de un sp

tengo el siguiente inconveniente con un procedimiento almacenado este procedimiento no recibe parametros solo muestra el contenido de una tabla.

no he podido pasarle los valores a un recordset este es el codigo que estoy utilizando

Dim dbs As New ADODB.Connection
Dim tbl As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim con As String

con = "Provider=MSDASQL.1;Persist Security Info=False;User ID=prueba;pwd=prueba;Data Source=prueba"
dbs.ConnectionString = con
dbs.Open

qry = "mostrar"
tbl.CursorLocation = adUseClient
tbl.LockType = adLockBatchOptimistic
Set tbl = dbs.Execute(qry)

If Not tbl.EOF Then
MsgBox (tbl(0))
End If

todo se ejecuta bien excepto cuando llega en las ultimas lineas me dice que el objeto esta cerrado cuando quiero mostrar los datos refiriendose al tbl.EOF

si alguine sabe como puedo hacer para que el recordset no quede cerrado o de que manera puedo reealizar esta operacion le agradeceria mucho...