'One-time at runtime start, create a new database table
Dim RuntimeStart, conn, rst, SQL, TabName, Message_Text_01

'Building up connection to the database 
Set conn = CreateObject("ADODB.Connection") 
Set rst = CreateObject("ADODB.Recordset")

'DSN = Name of the ODBC database        
conn.Open "Provider=MSDASQL;DSN=WinCCflexible"

'Set the Message text, in this sample in german
Message_Text_01 = "Baza Danych istnieje" ' "Database table already exist"

'Error handling
On Error Resume Next
Err.Clear

'Set the database table name at runtime start with the current name of the month
If SmartTags("SQL_DataBase\RuntimeStart") = False Then
        SQL = "CREATE DATABASE Data_Logs_" & Year(Now) & "_" & Month(Now)
        Set rst = conn.execute(SQL)
                'Systemmeldung wenn bereits Datenbank Tabelle von aktuellen Monat vorhanden ist
                        'System message, if the database table already exist from the current month
                If Err.Number <> 0 Then
                        ShowSystemAlarm Message_Text_01
                End If
        SmartTags("SQL_DataBase\RuntimeStart") = True                                        
End If

'Clear memory 
Set rst = Nothing
Set conn = Nothing