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