database - VB6.0 および IBM DB2: データベース内のデータを検索する

Question

データベースからデータを取得し、検索機能のコンボ ボックスに表示しようとして、ibmDB2 と VB6.0 を使用しています。テーブル名は Supplier、コンボ ボックスに表示する列は Supp_CompanyName です。

しかし、コーディングを行った後、プライベート サブ フォーム セクションの下の do ループで "Expected: End of Statement" エラーに直面します。このエラーを修正する方法について何か考えはありますか?

ありがとう ：）

以下は、サプライヤー情報表示フォームのコードです。

Private Sub Combo1_Change()
Adodc1.RecordSource = "select * from Supplier where Supp_CompanyName='" & Combo1 & "'"
Adodc1.Refresh

End Sub

Private Sub Command1_Click()
Adodc1.RecordSource = "Select * from Supplier "
Adodc1.Refresh

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=IBMDADB2.DB2COPY1;Data Source=ToyStore"
Combo1.Clear
Adodc1.RecordSource = "Select distinct Supp_CompanyName from Supplier"
Adodc1.Refresh

With Adodc1.Recordset 
Do Until .EOF 
    Combo1.AddItem ![Supp_CompanyName] 
    .MoveNext
Loop
End With

Adodc1.RecordSource = "Supplier"
Adodc1.Refresh

End Sub