Version... example for Visual Basic

Note: Also works with Access 95 and 97.

This example puts the version information into a string and displays the string in a message box.

' Declare local variables
Dim LevelStr, cMsg

If Lead1.VersionLevel = VERSIONLEVEL_EXP Then
    LevelStr = "Document/Medical "
Else
    LevelStr = "Professional Edition"
End If

cMsg = Lead1.VersionProduct + Chr(13) + LevelStr + Chr(13)
cMsg = cMsg + "Version: " + CStr(Lead1.VersionMajor) + "."
cMsg = cMsg + CStr(Lead1.VersionMinor) + Chr(13)
cMsg = cMsg + "Date produced: " + Lead1.VersionDate + Chr(13)
cMsg = cMsg + "Time produced: " + Lead1.VersionTime + Chr(13)
' Display the message box
MsgBox cMsg, 0, "Version Info"