Public Class cTabellen
    Private _cnTyp As Type
    Private cn As String
    Private typIndex As Integer
    Private cmd1 As IDbCommand
 
    Public Sub New(ByVal cnTyp As Type)
        _cnTyp = cnTyp
        cn = cnTyp.GetType.FullName
        Select Case cn
            Case "ByteFX.Data.MySqlClient.MySqlConnection"
                typIndex = 1
             ...
        End Select
    End Sub
 
    Function CreateTableLeistungen(ByVal tName As String, ByVal conn As  _
      IDbConnection) As Boolean
        Dim s As String = "CREATE TABLE " & tName & Leistungen("")
        Select Case typIndex
            Case 1
                conn = New MySqlConnection(" ... ")
                cmd1 = New MySqlCommand(s)
                cmd1.Connection = conn                
                cmd1.ExecuteNonQuery()
                ...