global variables in VBS (Public)

In WinCC 7.x  I could create a global vbs script.

To operate the database, I declare global variables, for example:

Public  objConnectionStringEdit

Public  objConnection

Public  objRecordSet

Public objCommand

I have created a connection to the database and can use it in any script.

In WinCC 13, I can not create a global variable.

This creates some problems:

 - each time you access the database you need to create a connection and open reсordset. It takes time. Then all you need to close

- it is very difficult to move on reсordset. Button (Previous Record), Button (Next Record).

Нow to declare a global variable in VBS?

Hello Amelin,

could you use an internal tag?
https://support.industry.siemens.com/tf/ww/en/posts/100437/

Otherwise I only know about global tags in C:
https://support.industry.siemens.com/tf/ww/de/posts/136488/
(Not in English, but the examples are in C, so still useful.)

1. I use TIA Portal v13 SP1 Upd 7

2. I want to create 3 buttons (in picture)

     - Connect_Date_Base_SQL

     - Next_Record

     - Previous_Record 

but I do not want to close the database and recordset

3. In WinCC 7.3/  I create

     ==========================

     Global Script VBS:

      Public  objConnectionString

Public  objConnection

Public  objRecordSet

Public objCommand

                   Sub ConnectDB

objConnectionString = "Provider=SQLOLEDB..."

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand = CreateObject("ADODB.Command")

Set objRecordSet = CreateObject("ADODB.Recordset")    

objConnection.Open objConnectionString

                   End Sub

                   Dim strSQL

strSQL = "SELECT * FROM [Initial_Date]"

                       Call ConnectDB()

                      objRecordSet.open strSQL,objConnection,1,3