1. Start Microsoft Excel 2007 and type "Column1" in "A1", "Column2" in "B1."

   Type "A" in "A2", "B" in "A3", "C" in "A4", "D" in "A5."

   Type "1" in "B2", "2" in "B3", "3" in "B4", "4" in "B5."

   Save your spreadsheet to "C:\" as "book1.xls."

2. Start Microsoft Office Access 2007 and click "Blank Database," then select "Create." Click "Database Tools" and select "Visual Basic." Click the "Insert" field and select "Module."

3. Type the following to create the "runSQLExcel" subroutine:

   Private Sub runSQLExcel()

   Press "Enter."

4. Type the following to define your variables:

   Const adOStatic = 3

   Const adLkOpt = 3

   Const adCmdString = &H1

5. Type the following to define and open connections to the Excel spreadsheet:

   Set objectConn = CreateObject("ADODB.Connection")

   Set objectRst = CreateObject("ADODB.Recordset")

   objectConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

   "Data Source=C:\Book1.xls;" & _

   "Extended Properties=""Excel 8.0;HDR=Yes;"";"

6. Type the following to run a SQL statement and open a new Recordset:

   objectRst.Open "SELECT * FROM [Sheet1$]", _

   objectConn, adOStatic, adLkOpt, adCmdString

7. Type the following to loop through your Recordset and display results for both of the columns in your spreadsheet:

   Do Until objectRst.EOF

   MsgBox "Colum1:" & objectRst.Fields.Item("Column1").Value & " " & _

   "Colum2:" & objectRst.Fields.Item("Column2").Value

   objectRst.MoveNext

   Loop

   Press "F5" to run your subroutine.

Speaking of excel or word. .i have to admit that it has  brought us great convenience. so does excel barcode.i used it frequently. you can have a try. http://www.keepautomation.com/products/excel_barcode/