OLEDB / Excel question

Imports System.Data.OleDb
 
Public Module Module1
 
    Public Sub Main()
 
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\_Test\Test Files\Book1.xls;" & _
            "Extended Properties=""Excel 8.0;Hdr=No;ImportMixedTypes=Text;IMEX=1"""
 
        Try
            Using cn As New OleDbConnection(ConnectionString)
                cn.Open()
                Using cmd As New OleDbCommand("SELECT * FROM [Sheet1$] WHERE [F2]='abc'", cn)
                    cmd.ExecuteNonQuery()
                End Using
            End Using
        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
End Module