Private Sub Report_Activate()
Dim Db As Database
Dim Rs As Recordset
Dim OdS As String
Dim DoS As String


Set Db = CurrentDb
Set Rs = Db.OpenRecordset(Me.RecordSource)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
OdS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1))
Rs.MoveLast
DoS = UCase(Left(Rs!ImepoljaIzRekorsourceIzvjestajaZaSlovo, 1))
Rs.Close
Me.ImePoljaTekstaGdje upisujes = "Od slova: " & OdS & " do slova: " & DoS
End If
set db=nothing
End Sub