SoloCodigo

Buenos dias a todos, tengo un gran problema: Deseo mostrar datos de un recordset en un flexgrid en .net.
He leido varios posts y no encuentro la solucion. mI situacion es la siguiente, tengo un formulario Ingreso de articulos, en el cual tengo un data grid q muestra todos los ingresos y un fexgrid que muestra  los detalles de cada ingreso, es decir aqui se deben mostrar los articulos de cada ingreso.
Lo que deseo en si es poder modificar los articulos de cada ingreso.
En mi codigo actual cada vez que doy click en un registro de ingreso en el data grid, el flexgrid muestra el numero de registro de articulos q se han ingresado, pero vacias porque no se como vaciar el recorset al flexgrid. Aca les dejo mi codigo.

Dim rsarticulo As New ADODB.Recordset
        Dim Columna As Integer
        Dim Fila As Integer
        rsarticulo.Open("select a.codigo,a.descripcion,di.cantidad from artículo a inner join detalle_ingreso di on di.codigo_articulo = a.codigo inner join entrada e on e.codigo = di.codigo_entrada where e.codigo ='" & Txt_codigo.Text & "' ", cn, ADODB.CursorTypeEnum.adOpenStatic)
        FG_ingresoarticulos.Rows = 1
        FG_ingresoarticulos.set_TextMatrix(0, 0, "Código")
        FG_ingresoarticulos.set_TextMatrix(0, 1, "Descripción Artículo")
        FG_ingresoarticulos.set_TextMatrix(0, 2, "Cantidad")
        Do While Not rsarticulo.EOF
            FG_ingresoarticulos.Rows = FG_ingresoarticulos.Rows + 1
            For Columna = 0 To rsarticulo.Fields.Count - 1
                'FG_ingresoarticulos.DataSource = rsarticulo *
                'FG_ingresoarticulos.set_TextMatrix(Fila, Columna, "xsd") = rsarticulo.Fields(Columna).Value *
                FG_ingresoarticulos.Clip = rsarticulo.GetString(ADODB.StringFormatEnum.adClipString)

            Next
            rsarticulo.MoveNext()
            Fila = Fila + 1
        Loop
        rsarticulo.Close()

Las lineas comentadas me dan error

Muchas gracias por todo