what is wrong with this?

[swoozie]

Access Module


Public Function ImportData()
Dim dbs as database
Dim Rst as recordset
Dim mysql as string

Set dbs = Opendatabase(CurrentDb)
mySql = "Select * from Tbl_GetData"

Set rst = dbs.openrecordset(mySql) 'error occures here


Do Until rst.EOF

dbtype = rst.Fields(4).Value
filename = rst.Fields(3).Value
PathName = rst.Fields(2).Value
TableName = rst.Fields(1).Value

DoCmd.DeleteObject acTable, TableName
DoCmd.TransferDatabase acImport, dbtype, PathName, acDefault, filename, TableName, 0, True

rst.MoveNext

Loop

rst.close
dbs.close

End Function

[salvelinus]

Does the query work if you build it in Query Designer? If so, try copying the SQL from there to your code. Not sure if Access requires it, but when you go through the Designer, it appends a semi-colon to the end of the SQL statement (before the last double quote).
Also, in code I maintain, I don't use:

Set dbs = Opendatabase(CurrentDb)

Try just Set dbs = CurrentDB

[swoozie]

I found the error, it was only a typo of course.

[Matt_T_hat]

Originally posted by swoozie
I found the error, it was only a typo of course.

Always the way