по данной процедуре в поле курсор перемещается в начало поля.
А вот в поле с датой - нет. Может дело в том что там маска и средний формат даты (00\-LLL\-9999;0;" ")

Private Sub поиск_дата_GotFocus()
If IsNull(поиск_дат) Or поиск_дата = "*-*-*" Then
поиск_дата.SelLength = 0
поиск_дата.SelStart = 0
End If
End Sub

Нужно чтобы в случае пустого поля курсор перемещался в начало поля

http://www.sql.ru/forum/1116724/kursor-ne-peremeshhaetsya-v-nachalo-polya-konflikt-s-formatom-polya