For ...Next Loop in the Datagrid

I'm using VB6. My problem is how can i using For...Loop to insert record from a column in datagrid into an access database 2000.

Example:

I got one text box named: txtSearch and a data grid named GrdItemList and a button named CmdOK


Datagrid has 4 columns holding records like:;

Year Name State Amount

2000 Scott TX 200
2000 John VN 500
2000 Mitch CA 1000
2001 Julie TX 20
2001 Kenny MO 452


In the text box if I type 2000 then hit OK I would like to insert all records in 2 columns (Year and Name only) into the table by each year I typed in the text box such as

Year Name

2000 Scott
2000 John
2000 Mitch


Anyone knows, please help. Thanks a lots.