Datagrid para añadir registros

FLP
25 de Octubre del 2005
Hola mi problema es el siguiente yo creo una consulta de SQL y el resultado quiero que lo muestre en un datagrid,ademas ese datagrid tienes 2 celdas mas que no estan vinculados con esa consulta y lo que quiere es añadir a esas celdas la informacion manualmente, el codigo es el siguiente:

Set tabla = basedatos.Execute("Select codigo,descripcion,marca,stock from articulos where trim(codigo)='" & Text1.Text & "'")

DataGrid1.Columns.Add(0).Caption = "Cantidad"
DataGrid1.Columns.Add(1).Caption = "Codigo"
DataGrid1.Columns.Add(2).Caption = "Descripcion"
DataGrid1.Columns.Add(3).Caption = "Marca"
DataGrid1.Columns.Add(4).Caption = "Stock" DataGrid1.Columns.Add(5).Caption = "Stock Actual"

DataGrid1.Columns.Item(1).DataField = tabla!codigo
DataGrid1.Columns.Item(2).DataField = tabla!descripcion
DataGrid1.Columns.Item(3).DataField = tabla!marca
DataGrid1.Columns.Item(4).DataField = tabla!stock

datagrid1.row=0
datagrid1.col=0
datagrid1.text=txtcantidad.text este campo seria para añadr manualmente a la celda que no esta vinculada pero no funciona.
Tampoco funciona para mostrar los datos que deberia devolver la consulta

Si me podeis ayuda,seria increible, muchas gracias

FLP
25 de Octubre del 2005
Por favor necesito ayuda con lo que os pregunte.

Me hariais un gran favor