Cant able to fetch values from excel worksheet using vb.net

[vinidimple]

Hi

i have a serious problem while i was working in Excel.I want to fetch
columns from an excel worksheet and i need to compare it with an sql
querry fields,so i tried to open an excle worksheet first..


Unfortunately my code was throwing error like


CLSID\{00020819-0000-0000-C000-000000000046} IS NOT VALID OR NOT
REGISTERED.
But the same exe is working fine in other Pc's except mine.Then i
overcome the error with the code


Dim oldCI As System.Globaliz ation.CultureIn fo =
System.Threadin g.Thread.Curren tThread.Current Cultu re
System.Threadin g.Thread.Curren tThread.Current Cultu re = New
System.Globaliz ation.CultureIn fo("en-US")


after that excel sheet was opening but i cant read the rows or columns
in it
error throws like "Old format or Invalid Type Library" in the
particular statement wherever i used worksheet.metho dname


Here i put the entire code


please help me


Imports System.Windows. Forms
Imports Microsoft.Offic e.Core
Imports Excel
Public Class Form1
Inherits System.Windows. Forms.Form
Public xlApp As New Excel.Applicati on


Public Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click


Try


Dim strFileName As String
Dim intRows, intCols As Integer
Dim r, c As Integer
Dim Strquerry As String
Dim strpos As Integer
Dim strposc As String
Dim StrMid As String
'Create a dialog box to find the excel file


Dim dlg As New OpenFileDialog
dlg.Filter = "Excel Files (*.xls)|*.xls"
dlg.FilterIndex = 0
dlg.ShowDialog( )
strFileName = dlg.FileName


Dim oldCI As System.Globaliz ation.CultureIn fo =
System.Threadin g.Thread.Curren tThread.Current Cultu re
System.Threadin g.Thread.Curren tThread.Current Cultu re = New
System.Globaliz ation.CultureIn fo("en-US")


Dim xlWB As Excel.Workbook
xlWB = xlApp.Workbooks .Open(strFileNa me)
TextBox1.Text = strFileName
xlWB.Applicatio n.Visible = True


System.Threadin g.Thread.Curren tThread.Current Cultu re = oldCI


Dim xls As Excel.Sheets
Dim xlsheet As New Excel.Worksheet


xls = xlWB.Worksheets


xlsheet = CType(xls.Item( 1), Excel.Worksheet )
xlsheet.activat e()


intRows = xlsheet.UsedRan ge.Rows.Count
If intRows <> 0 Then
intCols = xlsheet.UsedRan ge.Columns.Coun t
If intCols <> 0 Then


' Scroll through all the rows and columns retrieving values.
For r = 1 To intRows
For c = 1 To intCols
Strquerry = TextBox2.Text
strpos = InStr(1, Strquerry, "(")
strposc = InStr(strpos, Strquerry, ",")
StrMid = Mid(Strquerry, strpos, CType(xlsheet.C ells(r, c),
Excel.Range).Te xt)
StrMid = Mid(Strquerry, strposc, CType(xlsheet.C ells(r, c),
Excel.Range).Te xt)
MsgBox(StrMid)
Next
Next


xlWB.Close(Fals e)
xlApp.Quit()
xls = Nothing
xlWB = Nothing
xlApp = Nothing
End If


End If
Catch ex As Exception
MsgBox(ex.Messa ge)
End Try


End Sub


End Class


thanks in advance
Dimple