Tambien tienes está opción, parecida a la que te mostro el amigo en la respuesta anterior:
Private Sub Command1_Click()
Dim sCadena As String
sCadena = "Select * From Flores WHERE Estado IN (" & _
IIf(Check1, "'Pendiente'", "") & _
IIf(Check2, ",'Enviado'", "") & _
IIf(Check3, ",'Entregado'", "") & _
IIf(Check4, ",'Anulado'", "") & ")"
sCadena = Replace(sCadena, "(,", "(")
Debug.Print sCadena
End Sub
Mi recomendación es que trabajes con matrices de objetos, para los checks en este caso.
Recuerda o deberías hacer la validación para el caso en que ningún check este chequeado, no permita la consulta o recibiras un bonito mensaje de error..
saludos!!