Como cargar datos a un datagrid en visual basic 6.0

[andyandres]

Saludos, quiero llenar datos a un Data Grid, a traves de una consulta, el codigo que tengo es:

Código [Seleccionar] Expandir

Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM LaTabla WHERE ECG = '" & ecg_t.Text & "'", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs

No me marca ningún error,PERO el datagrid no carga los datos, queda vacío.
Es como si la consulta no devolviera datos, pero si devuelve datos,ya lo he probado cargando a un listview y funciona perfecto, pero cuando quiero llenar a un datagrid, simplemente queda vacío.

Alguien sabe porque pasa esto...?? O hay algo mas que debo hacer para que el datagrid cargue los datos.

Cabe mencionar que la conexión a la bd la tengo en un módulo, y toda la conexión esta bien.