Guten Morgen,
Vielen Dank noch einmal. Ich habe es noch einmal versucht und es funktionierte sofort.

Code:
    Public Sub ExecuteCommand(ByVal cmd As String)

        cmd = String.Format("call qsys.qcmdexc('{0}', {1})", cmd, _
        Format(Microsoft.VisualBasic.Len(cmd), _
        "0000000000\.") & "00000")
        Dim c As New OleDb.OleDbCommand(cmd, _conn)
        Debug.Print(c.CommandText)
        Try
            c.ExecuteNonQuery()
            Debug.Print("Command ausgeführt")
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message & Chr(13) & Chr(13) & _
            ex.ToString)
        End Try

    End Sub
Der Tag ist gerettet.
cu
Hendrik