Есть кнопка которая отображает данные из аксесовской базы в msflexgrid.
Как сделать чтоб при повторном нажатии кнопки обновлялись данные в соответствии выбранного дня в календаре, а то работает тоько один раз до перезапуска формы. Вот код


Private Sub Command1_Click()
DBEngine.DefaultType = dbUseJet
Dim wrkJet As Workspace
Set wrkJet = CreateWorkspace("JetWorkspace", "admin", "")
Dim db As DAO.Database ' iauaeo DAO.Database
Set my_Base = OpenDatabase("C:\nakladnie.mdb")
Set rstNwind = my_Base.OpenRecordset("select klient,Зачтена_накл,Номер накл from finish where Зачтена_накл = false and Дата >= #" & Format(Calendar1.Value, "mm\/dd\/yyyy") & "#", dbOpenDynaset)
If rstNwind.RecordCount > 0 Then
rstNwind.MoveFirst
MSFlexGrid1.Cols = rstNwind.Fields.Count + 1
MSFlexGrid1.ColWidth(0) = 1
If MSFlexGrid1.Cols > 1 Then MSFlexGrid1.ColWidth(1) = 2500
If MSFlexGrid1.Cols > 2 Then MSFlexGrid1.ColWidth(2) = 700
Do While Not rstNwind.EOF
newelement = ""
For I = 0 To rstNwind.Fields.Count - 1
newelement = newelement & Chr(9) & rstNwind.Fields(I)
Next
MSFlexGrid1.AddItem newelement
rstNwind.MoveNext
Loop
End If