ADO.NET ist kein COM-Objekt, die Verweise können z.T. in den Projekteigenschaften oder als Import verwendet werden.

Im Wesentlichen könnte das so aussehen:



Imports System.Data
Imports System.Data.OleDb

Module Module1
Sub Main()
Dim xConnection = New OleDbConnection("Provider=IBMDA400;Data Source=VWWE400;")
Dim xCommand = xConnection.CreateCommand()
xCommand.CommandText = "{{CALL /QSYS.LIB/AM.LIB/FEBDEBUC.PGM(?)}}"
xCommand.Parameters.Add("Funktion", OleDbType.Char, 5).Direction = ParameterDirection.InputOutput
Try
xConnection.Open()
xCommand.Parameters(0).Value = "Write"
xCommand.ExecuteNonQuery()
xConnection.Close()
Catch ex As Exception
Trace.WriteLine("Fehler in der Ausführung: " & ex.Message)
Finally
If xConnection.State = ConnectionState.Open Then
xConnection.Close()
End If
xCommand.Dispose()
xConnection.Dispose()
End Try
End Sub
End Module