sorry friends
the original code is missing in the above post
Dim DB, rsUser, rsMessage, rsTopic, rsForum, rsSection, rsSettings, rspMessage, UserCount, PostCount, TopicCount
'open the database
Set DB = CreateObject("DAO.DBEngine.36").Workspaces(0).Open Database(AppPath & DBName,,True)
Set rsUser = DB.OpenRecordset("User")
Set rsMessage = DB.OpenRecordset("Message")
Set rsTopic = DB.OpenRecordset("Topic")
Set rsForum = DB.OpenRecordset("Forum")
Set rsSection = DB.OpenRecordset("Section")
Set rsSettings = DB.OpenRecordset("Settings")
Set rspMessage = DB.OpenRecordset("pMessage")
|