@DIV
No.5 で作成された strLine 内の select 文は、
この呼び出し方の場合、' を '' に変更する必要があります。
( 変更しないで呼び出す方法もあります )
@END

@DIV
Dim db As New DbOracle(Server, User, Pass)

If Not db.Connect() Then
	MessageBox.Show("接続に失敗しました")
	Return
End If

Dim str As String

str = strLine.Replace("'", "''")
str = "BEGIN CSV高速出力('" + str + "' ); END;"

If db.Execute(str) = -2 Then
	MessageBox.Show(db.myError)
End If

db.Close()
@END