Code:
 Private Sub Sala_broj_AfterUpdate()

Dim db As Database
Dim rs As ADODB.Recordset

Dim value
Dim rst As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "tblosnovna", CurrentProject.Connection

Do Until rs.EOF
  
    If rs!Datum_od = Form_frmOsnovna.Datum_od Or Form_frmOsnovna.Datum_do And rs!Vrijeme_od=Form_frmOsnovna.Vrijeme_od Or Form_frmOsnovna.Vrijeme_do And Form_frmOsnovna.Sala_broj = rs!Sala_broj  Then
    MsgBox "Sala " & "( " & Form_frmOsnovna.Sala_broj & " ) " & "je već zauzeta za taj datum - provjerite vrijeme", vbOKOnly, "Pažnja!"
    Detail.BackColor = 255
    
    End If
    rs.MoveNext
    
Loop

End Sub