Visual Basic - Sql2000 con ADO y StoreProcedure en una Grilla

Hola, soy nuevo en esto de VB6, lo que quiero hacer es ejecutar un sp de Sql2000 con ADO y retornar las filas y columnas a una grilla (datagrid)
para el ejemplo estoy tomando la bdd que viene con el Sql2000 bdd=pubs e hice un store procedure que hace un select a la tabla titles el resultado lo quiero poner en una grilla
si me pueden enviar y explicar el codigo VB se los agradeceria

dim cn as adodb.connection
dim rs as adodb.recordset

set cn=new adodb.connection

cn.connectionstring="provider=sqloldb; datasource=nombrepc; initial catalog= nombrebasededatos; user=Usuariobasededatos; password="

cn.open

set rs=new adodb.recordset

With Rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With

rs.open "exec storeprocedure", cn

if rs.eof=true then
datagrid.datasource=rs
end if