YA EDITE ARRIBA, LA SOLUCIÓN
MIL GRACIAS SalomonSab y pkj por la AYUDA!! !!
Les pongo la solución acá abajo tmb:
Código:
Dim status As String' variable a usar
'obligo a los 4 check q esten activados para el si sinó el status será nó
If Document1.Value = 1 And Document2.Value = 1 And Document3.Value = 1 And Document4.Value = 1 Then
status = "si"
Else
status = "no"
End If
rs1("status") = status ' aca guardo en la base en el campo status
Se los dejo explicadito con comentarios...saludos espero q le sirva a otra persona!