Enum DbTyp
        Access = 0
        Oracle = 1
        MySql = 2
    End Enum
    Function Conn(ByVal DbTyp As DbTyp) As OleDb.OleDbConnection
        Dim cn As OleDb.OleDbConnection
        Dim cnstr As String
        Select Case DbTyp
            Case DbTyp.Access : cnstr = "ConnectString für Access"
            Case DbTyp.Oracle : cnstr = "ConnectString für Oracle"
            Case DbTyp.MySql : cnstr = "ConnectString für MySql"
        End Select
        cn = New OleDb.OleDbConnection(cnstr)
        cn.Open()
        Return cn
    End Function