VB6.0のフォームのコンボボックスにMSDEサーバーのデータを表示したい

会社で簡単なシステムを作ることになりましたが、全然プログラムがわからない初心者です。どうかご指導宜しくお願いいたします。

　VB6.0のフォームにコンボボックスを作り、MSDEサーバの『部門テー
ブル内の部門名』を表示したいです。データベースにアクセスするとこ
ろまではできましたが、配列で取得する方法がわかりません。どのよう
にしたらよろしいでしょうか。なんとなくで書いてみたのが下記内容で
す。ご指導宜しくお願いいたします。

Private Sub Form_Load()
Dim str_SQL As String
Dim vntArray As Variant
Dim 件数 As Long

strConn="Provider=SQLOLEDB;SERVER=k;Database=L;UID=sa;PWD=s"

Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = strConn
objConn.Open

If objConn.State <> 1 Then
'接続失敗
End If

'SQL文の作成
str_SQL = "SELECT [部門コード], 部門名"
str_SQL = str_SQL & " FROM 部門"

'//SQLの実行
Set vntArray = objConn.Execute(str_SQL)

↓ここらへんから特にわかりません。。。
????????????????????????????????????????????????????????????
Combo_部門名.AddItem vntArray010(1)
????????????????????????????????????????????????????????????
End Sub

No.1 ベストアンサー 回答者： kabilunlun 回答日時： 2007/06/25 22:24

「Set vntArray = objConn.Execute(str_SQL)」の後に、

Do Until vntArray.Eof
　Combo_部門名.AddItem vntArray("部門名").Value
　vntArray.MoveNext
Loop

で出来ませんか。