Option Compare Database
Option Explicit
Dim Combo1 as new clsDb
Dim strSQL as string
Private Sub Form_Load()
strSQL="select * From tblコンボボックステスト" where cmbID='002' order by cmbOrder asc"
If Combo1.ExecSelect(strSQL)=True then
Set Me.ComboBox1.Recordset=Combo1.GetRS
End if
End Sub
