Private Sub Command8_Click()
strfilt = ""
If Nz(Me.lat) <> 0 Then
If Len(strfilt) > 0 Then
strfilt = strfilt & " And "
End If
strfilt = strfilt & "lat BETWEEN " & Me.Texta.Value & " AND " & Me.Textb.Value
End If
Me.Form.Filter = strfilt
Me.Form.FilterOn = True
End Sub