Imports System.data
Imports System.Data.OracleClient
Public Class Form1
    Friend WithEvents Abfrage As OracleCommand
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Nummer As Long
        Nummer = 1234532    ' variabel
        Abfrage = New OracleCommand("SELECT * FROM JH_REP_DAT WHERE (TRANS =" & _
          ":Nummer)", SqlCon)
        Abfrage.Parameters.AddWithValue( ":Nummer", Nummer )
        Try
          SqlCon.Open()
          DIm dr as OracleDataReader = Abfrage.ExecuteReader()
          While dr.Read()
            Bestand += CInt( dr("Bestand") )
          End While        
        Catch ex as Exception
          ' Echtes Fehlerhandling einbauen
        Finally
        End Try       
    End Sub
End Class

 
Dim da as New OracleDataAdapter("SELECT * FROM JH_REP_DAT WHERE (TRANS =" & _
  ":Nummer)", SqlCon)
da.SelectCommand.Parameters.AddWithValue( ":Nummer", Nummer );
Dim dt as new DataTable
 
da.Fill( dt )
 
for each  dr as DataRow in dt.Rows
  dr("User") = NeuerName
Next
 
Dim cb as New OracleCommandBuilder( da )
da.Update( dt )