Private Sub Form_Load()
    Dim Cn As ADODB.Connection
    Dim rst_1 As New ADODB.Recordset
    Dim work_path As String
    Dim i As Long
            
        Call btn_f_clear_Click
        
        work_path = CurDir("")
        i =  0 
        ft =  0 
        
        Set Cn = CreateObject("ADODB.Connection")
        Set rst_1 = CreateObject("ADODB.Recordset")

        Cn.Provider = "Microsoft.Jet.OLEDB.4.0"

        Cn.Open ("File Name=" & work_path & "\Data\str.udl")

        rst_1.CursorType =  3 

        rst_1.LockType =  3 

        rst_1.Open "SELECT id_mt,full_mtype  FROM message_type ORDER BY id_mt ", Cn
                
        If Not rst_1.EOF And Not rst_1.BOF Then
            rst_1.MoveFirst
            While Not rst_1.EOF
                i = rst_1!id_mt
                Me.f_mt.AddItem rst_1!full_mtype, (i -  1 )
                rst_1.MoveNext
            Wend
        End If
                
        rst_1.Close
        
        rst_1.Open "SELECT pokstat.id_stat, pokstat.stat_comment FROM pokstat ", Cn, adOpenStatic, adLockReadOnly
                
        If Not rst_1.EOF And Not rst_1.BOF Then
            rst_1.MoveFirst
            While Not rst_1.EOF
                i = rst_1!id_stat
                Me.f_stat.AddItem rst_1!stat_comment, (i -  1 )
                rst_1.MoveNext
            Wend
        End If
                
        rst_1.Close
        
        ft = Form1.filtr_type.Text
        
        rst_1.Open "SELECT id_mt, id_stat, dat_b, dat_e FROM filtr_tmp WHERE id_filtr=1 ", Cn, adOpenStatic, adLockReadOnly
           
        If Not rst_1.EOF And Not rst_1.BOF Then
            If Not IsNull(rst_1!dat_b) Or rst_1!dat_b <> "" Then
                    Me.dat_begin.Text = rst_1!dat_b
                Else
                    Me.dat_begin.Text = ""
            End If
            If Not IsNull(rst_1!dat_e) Or rst_1!dat_e <> "" Then
                    Me.dat_end.Text = rst_1!dat_e
                Else
                    Me.dat_end.Text = ""
            End If
            If Not IsNull(rst_1!id_mt) Or rst_1!id_mt <> "" Then
                    Me.f_mt.Text = rst_1!id_mt
                Else
                    Me.f_mt.Text = ""
            End If
            If Not IsNull(rst_1!id_stat) Or rst_1!id_stat <> "" Then
                    Me.f_stat.Text = rst_1!id_stat
                Else
                    Me.f_stat.Text = ""
            End If
        End If
        
        rst_1.Close
        Set rst_1 = Nothing
        
End Sub

Private Sub btn_f_e_Click()
    Dim rst As New ADODB.Recordset
    Dim work_path As String
    
        ...
            Form1.filtr_type.Text = ft
            
            work_path = CurDir("")
        
            Set rst = CreateObject("ADODB.Recordset")
    
            rst.Open "SELECT * FROM filtr_tmp Where id_filtr=1 ", _
                        Cn, adOpenDynamic, adLockOptimistic
            
            rst("filtr") = ft
            If Me.dat_begin <> "" Then
                    rst("dat_b") = Me.dat_begin
                Else
                    rst("dat_b") = Null
            End If
            If Me.dat_end <> "" Then
                    rst("dat_e") = Me.dat_end
                Else
                    rst("dat_e") = Null
            End If
            
            If Me.f_stat <> "" Then
                    rst("id_stat") = Trim(Me.f_stat)
                Else
                    rst("id_stat") = Null
            End If
            If Me.f_mt <> "" Then
                    rst("id_mt") = Trim(Me.f_mt)
                Else
                    rst("id_mt") = Null
            End If
            
            rst.Update
            rst.Requery
            rst.Close           
            Set rst = Nothing
    .....
   
End Sub

Dim rst_1 As New ADODB.Recordset
        Set rst_1 = CreateObject("ADODB.Recordset")