Public Class Class1
    Dim da As IDbDataAdapter
    Dim CL2 As New Class2
 
    Public Function xyz
        DbVerbindung()
        da.SelectCommand.CommandText = "SELECT * FROM patnzg"
        da.SelectCommand.Connection = conn
        da.Fill ( ? ? ? ) ' hier kann ich nur noch ds angeben, keinen 
        ' Tabellnamen !
 
    Private Function DbVerbindung
        da = CL2.Adapter
 
Public Class Class2
    ReadOnly Property Adapter() as MySqlDataAdapter
        Get
            Adapter = New MySqlDataAdapter
            Return Adapter