Dim wrk As Workspace, dbs As Database
Dim wrk As Workspace, dbs As Database
Set wrk = CreateWorkspace( "", " admin ", " ", dbUseJet)
Set dbs = wrk.OpenDatabase(k, True)
 

'------------------------------
Dim skr As Variant
retvalue = MsgBox("Âè ä³éñíî áàæàåòå âèêîíàòè ñêðèïò", vbOKCancel, "Âèêîíàííÿ ñêðèïòà")
If retvalue = 1 Then

While Me.skript <> ""
    On Error GoTo err:
        skr = breakSQL(Me.skript)
        If skr <> "" Then
            dbs.Execute skr
            'DoCmd.RunSQL (skr)
        End If
err: