Via de volgende code, kan je versie van Access achterhalen.

Code:

Imports Microsoft.Win32

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Sleutel As RegistryKey = Registry.ClassesRoot.OpenSubKey("Access.Application\\CurVer")
    Dim Tekst As String = Sleutel.GetValue("")
    Sleutel.Close()
    Tekst = Tekst.Substring(Tekst.LastIndexOf(".") + 1)

    Dim Temp As String

    Select Case Tekst
      Case 8
        Temp = "Access 97"
      Case 9
        Temp = "Access 2000"
      Case 10
        Temp = "Access 2002" ' XP
      Case 11
        Temp = "Access 2003"
      Case 12
        Temp = "Access 2007"
      Case Else
        Temp = "onbekend"
    End Select

    MessageBox.Show("U bezit de volgende versie: " & Temp)
  End Sub
End Class