コンボボックスの内容をフレキシブルグリッドに表示させるには？

VB初心 2008-09-19 04:14:17 No: 140468

初めましてよろしくお願いします。
開発環境はVB6です。

Private Sub Command1_Click()
sql = "SELECT TABLE_NAME FROM USER_TABLES"

Set session = CreateObject("OracleInProcServer.XOraSession")
Set Database = session.DbOpenDatabase("step", "tokyo" & "/" & "kanagawa", 0&)

Set dynaset = Database.dbcreatedynaset(sql, 0&)
If dynaset.BOF = True And dynaset.EOF = True And dynaset.RecordCount = 0 Then
MsgBox "NoData"
Else
i = 1
Do Until dynaset.EOF
If i > 1 Then
Combo1.AddItem CStr(dynaset![TABLE_NAME])
Else
End If
i = i + 1
dynaset.MoveNext
Loop
End If

End Sub

こんな感じでコンボボックスを作ったのですが、
ボックスのリストをクリックした時に、選択したリストの内容全てが
フレキシブルグリッドに上手く表示できません。（選択は1つです）

お手数お掛けしますがよろしくお願いします。