G
Guest
Since recently upgrading to windows xp a routine to import a text file
'ezychart.txt' fails with run time error '3011' (The microsoft jet data base
engine could not find the object 'ezychart.txt'. )
the program bombs on the last line of code listed below.
any suggestions to resolve this problem would be appreciated
Sub ConnectOutput(dbstemp As Database, _
strtable As String, strConnect As String, _
strSourceTable As String)
Dim rstLinked As Recordset, rsttd1 As Recordset
Dim intTemp As Integer
Dim strasxcode As String, stropenprice As String, strhiprice As String
Dim strloprice As String, strcloseprice As String, strvolume As String
Dim strdate As String
Set tdflinked = dbstemp.CreateTableDef(strtable)
tdflinked.connect = strConnect
tdflinked.SourceTableName = strSourceTable
dbstemp.TableDefs.Append tdflinked
'ezychart.txt' fails with run time error '3011' (The microsoft jet data base
engine could not find the object 'ezychart.txt'. )
the program bombs on the last line of code listed below.
any suggestions to resolve this problem would be appreciated
Sub ConnectOutput(dbstemp As Database, _
strtable As String, strConnect As String, _
strSourceTable As String)
Dim rstLinked As Recordset, rsttd1 As Recordset
Dim intTemp As Integer
Dim strasxcode As String, stropenprice As String, strhiprice As String
Dim strloprice As String, strcloseprice As String, strvolume As String
Dim strdate As String
Set tdflinked = dbstemp.CreateTableDef(strtable)
tdflinked.connect = strConnect
tdflinked.SourceTableName = strSourceTable
dbstemp.TableDefs.Append tdflinked