Visual Basic - Llenar DataGrid. Me cuenta los registros pero no me llena el DataGrid

NO ME MUESTRA LOS REGISTROS EN EL GRID PERO SI ME CUENTA CUATOS TENGO.
Codigo:

Dim base As ADODB.Connection
Set base = New ADODB.Connection

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Dim sSelect As String

sSelect = "Select * From Archive"

base.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Nueva carpeta\Analyzer.mdb;Persist Security Info=False"

base.CursorLocation = adUseClient

rs.Open sSelect, base, adOpenDynamic, adLockOptimistic

Set DataGrid.DataSource = rs
Text1.Text = rs.RecordCount

rs.Close
base.Close

Porque no utilizas el grid que uso yo aquí?
http://www.lawebdelprogramador.com/codigo/Visual-Basic/2963-DivXCataloguer.html