record set shows nothing in the code ?

[hfs]

HI,
i have a combo box ,and when i should select "all",this button after update code should show me all the column of table test ,but looks like for no reason the record set shows nothing and its not working ,need help with it !

Private Sub cboTaskListName_AfterUpdate()
'On Error GoTo cboTaskListName_AfterUpdate_Err
 Me.Refresh
    
 Dim db As DAO.Database
 Dim SQL As String
Dim rs As DAO.Recordset
 
 
 If Me.cboTaskListName = "111111" Then
 
 Set db = CurrentDb()
  

 SQL = "SELECT no1 from test"
 
Set rs = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
 

 
   

  End If
    
End Sub

Any kind of help would be appreciated

 

[billmeye]

Are you trying to show all the records of the table in the form? If so, you would need to do:

Private Sub cboTaskListName_AfterUpdate()
'On Error GoTo cboTaskListName_AfterUpdate_Err
  If Me.cboTaskListName = "111111" Then
 Me.RecordSource = "SELECT no1 from test"
End If
    
End Sub
Otherwise, I'm not sure what you want to do with the recordset.