Visual Basic - Problemas con DATAGRID

Que tal amigos, mi problema es que quiero llenar un DATAGRID atraves de programacion pero cuando ejecuto el programa el DATAGRID no se llena y ya no se que hacer, les adjunto el codigo que estoy utilizando para ver si alguien me ayuda.

Private Sub Form_Load()
Dim cnne As ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Set cnne = New ADODB.Connection
Set cnne = establecerconexion()
Set cmd.ActiveConnection = cnne
cmd.CommandText = "ListaArticulos"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("Mensaje", adVarChar, adParamOutput, 100)
Set rs = cmd.Execute

Set Me.DGArticulo.DataSource = rs
cnne.Close
End Sub

El recordset RS se carga con lo que devuelve el procedimiento almacenado, pero al momento de almacenarlo en el DATAGRID el DataGrid queda en blanco.