Visual Basic - datagrid

compañeros tengu un problema y quisiera que me ayudaran
Tengo este codigo en un boton de comandoPublic Sub valida()
Dim CRITERIO As String
Dim mensaje As String

CRITERIO = "select * from factura_articulos where (Codigo LIKE '" & Text_codigo.Text & "')"
agregar.RecordSource = CRITERIO
agregar.Refresh
valida_producto = False
If agregar.Recordset.EOF Then
valida_producto = True
End If
'y para grabar
If valida_producto <> False Then
'graba
Text1 = txtcantidad * txtprecio
agregar.Recordset.AddNew
agregar.Recordset.Fields("Codigo").Value = Text_codigo.Text
agregar.Recordset.Fields("Descripcion").Value = txtnombre.Text
agregar.Recordset.Fields("Cantidad").Value = txtcantidad.Text
agregar.Recordset.Fields("Precio").Value = txtprecio.Text
agregar.Recordset.Fields("Total").Value = Text1.Text
agregar.Recordset.Update
txtstockfinal = txtstockfinal - txtcantidad
calcula = Text1 + calcula
txtsub.Text = calcula
calcular.Enabled = True
Else
MsgBox "producto ya fue ingresado si desea modificarlo presione borrar y comienze a facturar", vbInformation, "Productos"
End If
'mensaje = "Select * from factura_articulos"
'agregar.RecordSource = mensaje
'agregar.Refresh
End Sub

lo que hace es que me agrega los registros a la base de datos y me los valida por si ya fueron introducido o no si fueron introducidos manda un mensaje de que ya fueron introducido si no los agrega a la base de datos. Pero en el datagrid yo quiero que me aparezcan todos los registros que yo e agregado, pero solo me aparece el ultimo. en la tabla si me aparecen todos...que debo corregir para ver todos los reg

al final del código ese sólo tienes que refrescar el DataGrid.

DataGrid.Refresh

Si los tienes en la tabla de la cual "tira" el Grid, al refrescarlo deben aparecer todos.