MSFlexGridでデータの追加の方法は？

質問

VB6.0　WINXP　DB:Oracle10g　
よろしくお願いします。
SELECT文でデータベースからデータを取ってきてMSFlexGridにデータを送ったのですが、そのデータに更に追加したいと思います。

' ADOのオブジェクト変数を宣言する
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim STRSQL As String
'Oracleとの接続
cn.Open "Provider=MSDAORA;" & _
"Data Source=NT;", "scott", "tiger"
' SQLステートメントを指定してレコードセットを作成する
re.Open
STRSQL = "select * from TOKUI WHERE A01 = 100"
rs.CursorLocation = adUseClient
rs.Open STRSQL, cn, adOpenDynamic, adLockBatchOptimistic
'グリッドに送る
Set MSFlexGrid1.DataSource = rs

'ここからのSELECT文を追加したいと思います。
STRSQL = "SELECT TOKUI FROM WHERE A01 = 200"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open STRSQL, cn, adOpenDynamic, adLockBatchOptimistic

よろしくお願いします。

回答No.2

fortranxp

最初の設定
' ADOのオブジェクト変数を宣言する
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim STRSQL As String
'Oracleとの接続
cn.Open "Provider=MSDAORA;" & _
"Data Source=NT;", "scott", "tiger"
' SQLステートメントを指定してレコードセットを作成する
re.Open
STRSQL = "select * from TOKUI WHERE A01 = 100"
rs.CursorLocation = adUseClient
rs.Open STRSQL, cn, adOpenDynamic, adLockBatchOptimistic
'グリッドに送る
Set MSFlexGrid1.DataSource = rs

追加の設定
' ADOのオブジェクト変数を宣言する
Dim cn2 As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
Dim STRSQL As String
'Oracleとの接続
cn2.Open "Provider=MSDAORA;" & _
"Data Source=NT;", "scott", "tiger"
' SQLステートメントを指定してレコードセットを作成する
rs2.Open
STRSQL = "select * from TOKUI WHERE A01 = 200"
rs2.CursorLocation = adUseClient
rs2.Open STRSQL, cn2, adOpenDynamic, adLockBatchOptimistic
'グリッドに送る

　　　　REM rs.MoveLast()
rs.AddNew()
For i = 0 To rs2.Fields.Count - 1
rs.Fields(i).Value = rs2.Fields(i).Value
Next i
rs.UpdateBatch()
Set MSFlexGrid1.DataSource = rs

回答No.1

fortranxp

＞ここからのSELECT文を追加したいと思います。
STRSQL = "SELECT*FROM TOKUI
WHERE A01=100"
　　　　　& "OR A01=200"
では？

補足

返答ありがとうございます。
すいません、ちょっと説明不足でした。
fortranxpさんが言われるようにWHERE句に記述すれば良いのですが、
今回はあくまでもデータがあってその内容に追加ができればいいなと思っている所です。
よろしくお願いします。