Private Function Test(ByRef myConn As OracleClient.OracleConnection)
 
 
        Dim myAdp As New OracleClient.OracleDataAdapter
        Dim sql As String
        Dim myDS As DataSet
 
        sql = "select Kunden_nr,Artikel_Nr , Artikel_Name from Kunden, Artikel" & _
          "where Verkauf.Kunden_nr = Kunden.Kunden_nr and Verkauf.Artikel_nr =" & _
          "Artikel.Artikel_nr "
        myAdp.SelectCommand = New System.Data.OracleClient.OracleCommand(sql, _
        myConn)
        Dim cb As New OracleClient.OracleCommandBuilder(myAdp)
 
        myAdp.Fill(myDS, "Kunden_Artikel")
 
        Dim myDg As System.Windows.Forms.DataGrid
        myDg.DataSource = myDS.Tables("Kunden_Artikel")
 
/* per Grid Sätze manipuliert
	......
/*
 
	myAdp.Update(myDS, myDS.Tables("Kunden_Artikel").ToString)
 
/* wirft natürlich eine Exeption, da in eine "View" nicht geschrieben werden _
  kann, kein Thema
 
End Function