CreateConnection - Creating a suitable connection object for a given connection string

' Create a suitable connection object for a given connection string.
' Requires Imports for System.Data, System.Data.Common, System.Data.OleDb,
'  System.Data.SqlClient and System.Data.Odbc
'
' Example: Dim cn As IDbConnection = CreateConnection(connStr)

Function CreateConnection(ByVal connString As String) As IDbConnection
    If connString.ToLower.IndexOf("provider=") >= 0 Then
        Return New OleDbConnection(connString)
    ElseIf connString.ToLower.IndexOf("driver") >= 0 Then
        Return New OdbcConnection(connString)
    Else
        Return New SqlConnection(connString)
    End If
End Function