dim myCommnad as New OleDBCommand("SELECT * FROM PERSONA WHERE Edad=20")
tuAdapter.Command = myCommand
'llenando el dataset
tuAdapter.Fill(tuDataSet,"nPersona")
'ahora lo enlazas a la Grilla
tuGrid.setDataBinding(tuDataSet,"nPersona")