consulta

[jchernandez]

Dim Vista As New DataView()

dtgrdList.DataKeys.Item(E.Item.ItemIndex).ToString contiene la llave del Grid seleccionado en tu fila.

Y para filtrar.

SQL = "SELECT CDPROV, NOMBRE, DIR1 FROM [QDSCORTOPROV]"
Cmd = New OleDbDataAdapter(SQL, SQLCon)
Cmd.Fill(ds, "[QDSCORTOPROV]")
Vista.Table = ds.Tables("[QDSCORTOPROV]")
Vista.RowFilter = dtgrdList.DataKeyField & " Like '" & Trim(txtParamBus.Text) & "*'")dtgrdList.DataSource = Vista