Discovering if the input OLEDB connection string points to a SQL Server DB

' Return a boolean indicating whether the input connection string for the OLEDB 
' managed provider points to a SQL Server DB
'
' Examples:
'   Debug.WriteLine(IsOleDbSqlConnString("Provider=SQLOLEDB.1;Data 
' Source=.;User ID=sa;Password=;Initial Catalog=MyDB")) ' => True
'   Debug.WriteLine(IsOleDbSqlConnString("Provider=Microsoft.Jet.OLEDB.4.0;Data 
' Source=D:\MyDB.mdb;")) ' => False

Function IsOleDbSqlConnString(ByVal connString As String)
    connString = connString.ToLower()
    Return (connString.IndexOf("sqloledb") > -1)
End Function