DB!User

With DB
  Benutzer = .User
End With

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)
    End Sub
End Class