Dim CreaTab As New cTabellen(cnString.GetType)
CreaTab.CreateTableLeistungen(leistTab, cnString)

Public Class cTabellen
    Private _cnTyp As Type
    Private cn As String
    Private typIndex As Integer
 
    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  ? ? _
      ?) As Boolean
        Dim s As String = "CREATE TABLE " & tName & Leistungen("")
        Select Case typIndex
            Case 1
                Dim cmd1 As New MySqlCommand(s, conn)
                cmd1.ExecuteNonQuery()
            ...