Sto cercando una funzioni che mi controlli se nel pc è gia installato SQLExpress2005

Questa funzione è perfetta su WIN7...ma va in errore su XP

codice:
Private Sub ControlloInstallazioneSQL()         
  Dim isInstalled As Boolean = False          
  Dim regSql As Microsoft.Win32.RegistryKey =   Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion")          
  If regSql.GetValue("CurrentVersion") IsNot Nothing Then             
  isInstalled = True             
  MsgBox("Installato")         
  Else             
  MsgBox("Non Installato")         
  End If      
End Sub
Avete un'altro metodo da propormi?

Ciao e grazie