Imports System.data
Imports System.Data.OracleClient
Public Class Test1
    Friend WithEvents Abfrage As OracleCommand
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Abfrage = New OracleCommand("SELECT * FROM TDAADMIN.JH_REP_ASPP WHERE (" & _
        "TYP = :Nummer)", SqlCon)
        Abfrage.Parameters.AddWithValue(":Nummer", "MC")
        Try
            SqlCon.Open()
            Dim dr As OracleDataReader = Abfrage.ExecuteReader()
            While dr.Read()
                Debug.Print(CInt(dr("GSER")))
            End While
            SqlCon.Close()
        Catch ex As Exception
            ' Echtes Fehlerhandling einbauen
        Finally
        End Try
    End Sub
End Class