Attribute VB_Name = "Module1"
Option Explicit

Public blnManagingData As Boolean
Public blnNewConnection As Boolean




Public Sub addLog(strEvent, intEventType)

    'Adds event information to logfile/logwindow

    
    With frmMai.txtLog

    .Text = .Text & "! " & Date$ & " " & Time$ & " " & strEvent & vbCrLf
    .SelStart = Len(.Text)

    End With

End Sub