Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAutorization.Click
        Dim SQLstr As String
        SQLstr = "SELECT * FROM tb_users WHERE LogUser=" & Trim(Username.Text) & " AND PassUser=" & Trim(Password.Text) & ";"
        rs.Open(SQLstr, conn, 3, 3)
        If rs.EOF = False And rs.BOF = False Then
            MDIfrm.Show()
            Me.Visible = False
            CurUser = rs.Fields("IDUser").Value
            MsgBox("Пойман: " & rs.Fields("FUser").Value)
        End If
    End Sub