CSV 作成用の文字列を作る際に、ここで使用したテーブル名を使うので、
グローバル変数にセットしておく

@DIV
Public @C:red(TableName) As String
@END

@DIV
Private Sub LboxGrid1_CellClick(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles LboxGrid1.CellClick

	If e.RowIndex < 0 Then
		Return
	End If

	@C:red(TableName) = LboxGrid1.GetColumnText(e.RowIndex, "TABLE")

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

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

	Dim Query As String = "select * from USER_TAB_COLUMNS "
	Query += " where TABLE_NAME = '" + @C:red(TableName) + "'"
	Query += " order by COLUMN_ID"
	db.Query(Query)
	Me.LboxGrid2.Clear()
	Do While db.Read()

		Me.LboxGrid2.AddRow()
		Me.LboxGrid2.SetColumnText("COL", db.GetValue(1))
		Me.LboxGrid2.SetColumnText("ATT", db.GetValue("DATA_TYPE"))
		Me.LboxGrid2.SetColumnText("LEN", db.GetValue("CHAR_COL_DECL_LENGTH"))

	Loop

	db.Close()

End Sub
@END