Como llenar un Data Grid en 6.0

[Kata_Her]

Hola a todos;

Mi situacion es la siguiente, deseo llenar un datagrid en 6.0 con los datos de una base de datos, se trata de hacer una busqueda en la bd mediante un codigo, y cuando encuentre el codigo, enviar ese registro a la grilla, pero no se como hacerlo, habia pensado en una instruccion como esta:

DataGrid1.Columns(0) = rs.Fields("Codigo_Articulo")

pero me genera un error, me dice que el conjunto de filas no es disponible, el codigo del boton es el siguiente:

Private Sub aceptar_b_Click()
rs.MoveFirst
While Not rs.EOF
ecg = rs.Fields("ECG")
If (ecg_t.Text = ecg) Then
DataGrid1.MarqueeStyle = dbgHighlightRow
DataGrid1.Columns(0) = rs.Fields("Codigo_Articulo")
DataGrid1.Columns(1) = rs.Fields("ECG")
DataGrid1.Columns(2) = rs.Fields("Descripcion")
DataGrid1.Columns(3) = rs.Fields("Cantidad")
DataGrid1.Columns(4) = rs.Fields("Valor")
DataGrid1.Columns(5) = rs.Fields("Estante")
End If
rs.MoveNext
Wend
End Sub

El rs es una variable de tipo Recorset que tiene una conexion con ado para la bd.

Gracias--------------