米塚と申します。

Windows 2000 pro ACCESS2000(ADP+MSDE)で、データベースを作っています。

リストボックスの中身を条件毎に変えたいと思い、つぎの様にして
みました。

--------------------------------------------------
Private Sub cboTest_AfterUpdate()
    
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sqlstr As String
    
    cn = CurrentProject.Connection
    
    sqlstr = "select XXX from tblTEST"
    
    
    rs.Open sqlstr, cn, adOpenForwardOnly, adLockPessimistic
    
    Set lstTEST.RowSource = rs
    
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub
------------------------------------------------------

ここで、「プロパティーの使い方が不正です」のエラーがでます。
条件毎にストアドプロシージャを書きまくれば解決するのですが、
何かよい方法はないものでしょうか？どなたか教えてください。