Pls Help vb $ excell “Couldn't find installable ISAM� error.

[tj28]

Hi allI’m a new junior developer at a certain company in South Africa and I’ve been given a task to debug someone else’s program .The program (is suppose to) connects to excel and send sms’s depending on what it find,The problem is the program is not working anymore it give a “Couldn't find installable ISAM error.Can anybody help out there as I’m still new at this company and I need to make an impression.Here is a snipped of the code 'Private dbsCellFile As DatabasePrivate rstCellFile As RecordsetPrivate ol As Outlook.ApplicationPrivate olns As Outlook.NameSpacePrivate InboxFldr As Outlook.MAPIFolderPrivate msg As Outlook.MailItemPrivate optTicked As OptionButtonPrivate Sub cmdSMS_Click(nIndex As Integer) On Error GoTo ehSMS Dim strXlFile As String, strSMSfile As String, strBillFile As String Dim strCell As String, strMsg As String, strTemp As String Dim fCellOK As Boolean Dim strItem As String Dim lngSmsCnt As Long Dim lngHwnd As Long Select Case nIndex Case 0 'create sms file MousePointer = vbHourglass strXlFile = filSMS.Path & "\" & filSMS.FileName '"F:\downloads\avon\Cell.xls" strSMSfile = "c:\sms.txt" '"c:\documents and settings\vdwelj\desktop\sms.txt" strBillFile = "c:\SmsBilling.txt" '"c:\documents and settings\vdwelj\desktop\SmsBilling.txt" Set dbsCellFile = OpenDatabase(strXlFile, False, False, "Excel 4.0;HDR=NO;") Set rstCellFile = dbsCellFile.OpenRecordset("A1:B50000")