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
        Dim idb As IDbDataAdapter = da
        Dim dtm As Common.DataTableMapping = idb.TableMappings.Add("patnzg", _
          "PATNZG")
        da.Fill (ds )
 
    Private Function DbVerbindung
        da = CL2.Adapter
 
Public Class Class2
    ReadOnly Property Adapter() as MySqlDataAdapter
        Get
            Adapter = New MySqlDataAdapter
            Return Adapter