help!! external table not in expected format
VB Code:
Set objXl = New Excel.Application
Set objWkb = objXl.Workbooks.Open(Text1.Text)
directory = App.Path & IIf(Right(App.Path, 1) = "\", "", "\")
fName = Mid$(Text1.Text, InStrRev(Text1.Text, "\") + 1)
Set fso = New FileSystemObject
objWkb.SaveAs FileName:="" & directory & "" & fso.GetBaseName(fName) & ".xls"
objWkb.Saved = True
objWkb.Close
Set objWkb = Nothing
Set objXl = Nothing
MsgBox "done"
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=C:\Documents and Settings\admin\My Documents\Paul\prjReadTxt\Copy of Book1.xls; ReadOnly=True;"
.Open
End With
when in cn.Open it occurs this error..