Visual Basic - Ayuda!!!!Refrescar DataCombo!!!!!

HoOla!! Nuevamente necesito de su ayuda... Necesito refrescar un datacombo cuando de clic en este. Osea que mi programa es de un restaurant. En un datacombo muestro las mesas que se encuentran ocupadas, pero cuando imprimo el ticket de pago de alguna mesa, ya no me debe de aparecer en el datacombo esa mesa porque ya se desocupó.
Entonces yo hago la sig. consulta: Mi combo se llama mesa....

Private Sub mesa_Click(Area As Integer)
sql = "select mesa from totales where estado=1"
cmd.CommandText = sql
Set rec = cmd.Execute
If rec.RecordCount > 0 Then
Set Me.mesa.RowSource = rec
mesa.ListField = "mesa"
End If
End Sub

El estado 1 significa que la mesa está ocupada, y cuando imprimo el ticket el estado se convierte en 0 porque la mesa ya no está ocupada. Pero no sé cómo refrescar el datacombo!!!! Les agradecería mucho su colaboración.

Private Sub Command1_Click()

cmd_str = "select mesa from totales where estado=1"
'Set cmd.ActiveConnection = cnn
cmd.CommandText = cmd_str

rst.CursorLocation = adUseClient
rst.Open cmd, , adOpenStatic, adLockBatchOptimistic

If rst.RecordCount > 0 Then
Set mesa.RowSource = rst
mesa.ListField = "mesa"
End If

End Sub

Private Sub imprimir()

'al imprimir el ticket refrescar el recordset y el datacombo
rst.Requery
mesa.Refresh

End Sub