Code:
Private Sub cmd_ok_Click()
'Declare variables
Dim db As DAO.Database
'= DBEngine.OpenDatabase(DbFile, False, False)
Dim rs As Recordset
Dim WS As Workspace
'Set workspace,database and recordset
Set WS = DBEngine.Workspaces(0)